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)