Cacher is the code snippet organizer for pro developers

# get row sums for numeric columns only

dat %>%
    mutate( total = rowSums( .[ sapply(., is.numeric)]) )


# https://stackoverflow.com/questions/30488161/r-colsums-when-not-all-columns-are-numeric