在函数中使用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)