Как использовать dplyr в функциях

Я хотел бы написать функцию, которая вычисляет среднее значение заданной переменной с использованием функции 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)