r - 在函数中使用 dplyr 的方法是什么

Question

我想编写一个函数，使用 dplyr 函数计算给定变量的平均值。我尝试了许多修改的概念，但没有成功。是否应该避免dplyr在自己的功能中使用功能？还是有什么技巧可以做到这一点？

df <- data.frame(type = c("KL", "KL", "A", "A", "B", "B"), 
                 D10 = rnorm(6, 3, 4))

licz <- function(dat, trait){
  require("dplyr")
  dat %>% group_by_(type) %>% summarise(sr = mean(trait, na.rm = T)) -> dataset
  return(dataset)
}

licz(df, D10)