r - dplyr::summarise 変数を入力する方法はありますか?

Question

これは、私には解決できないように見える非標準評価の問題です。列名を入力して集計を出力する関数を作りたいです。この関数では、 を次のsummarise(name,...)ように入力として割り当てることが重要です。

mtcars %>% 
  summarise(mpg = mean(mpg))

これは機能します：

get <- function(col){
  mtcars %>% 
    summarise(mean = mean({{ col }}))
}

get(mpg)

しかし、これはそうではありません。これが私が必要としているものです。

get <- function(col){
  mtcars %>% 
    summarise({{ col }} = mean({{ col }}))
}

どんな助けでも大歓迎です。