r - 関数への dcast と要約 - 引数が失われました

Question

正常に動作する次のコードを関数に変換しようとしています。

result_check <- data %>% 
  group_by(column, target)  %>%
  summarise(Unique_Elements = n()) %>%
  dcast(column_code ~ target, value.var="Unique_Elements")

たとえば、次のデータセットを使用するとします。

column1 target
  AA      YES
  BB      NO
  BC      NO
  AA      YES

コードは、次のように、ターゲット変数に従ってデータセットを集計します。

column1    YES   NO
   AA       2    0
   BB       0    1
   BC       0    1  

これは私が関数を構築する方法です：

aggregate_per_group <- function(column) {
data %>% 
  group_by(column, target)  %>%
  summarise(Unique_Elements = n()) %>%
  dcast(column ~ target, value.var="Unique_Elements")}

しかし、私は - Error: unknown variable to group by : column. 私はそれが基本的な質問であることを知っていますが、group_by で引数を失っている理由の手がかりはありますか?

次の実装 "group_by_" と "require("dplyr")" を使用してみましたが、それらは無関係のようです。