row sums with vector input

row sums with vector input

orange <- c("a", "c", "d")

df <- tibble(a = round(rnorm(mean = .5, sd = .1, n = 10), 0),
             b = round(rnorm(mean = .5, sd = .1, n = 10), 0),
             c = round(rnorm(mean = .5, sd = .1, n = 10), 0),
             d = round(rnorm(mean = .5, sd = .1, n = 10), 0),
             e = round(rnorm(mean = .5, sd = .1, n = 10), 0))


df %>% 
  mutate(count = pmap_dbl(select(., orange), sum))