此代码是较大代码段的一部分。我真的很想知道enquo在做什么,因为我已经看过enquo的定义,却不太了解它在做什么。
func.table.2 <- function(dataset, a, b, c){
a <- enquo(a)
b <- enquo(b)
c <- enquo(c)
dataset %>% select(!!a, !!b, !!c) %>%
group_by(!! a) %>%
summarise_at(.vars = vars(contains("10")), funs(sum(., na.rm = T)))
}
该代码有效(这是工作中来自同事的更大代码集的一部分)