使用dplyr编写具有隐式列名的函数

Question

我正在尝试使用dplyr创建一个函数，该函数将grepl输入用于过滤＆＃34; Source＆＃34;给定数据框中的列，并总结为＆＃34; Money＆＃34;列。

sum_sessions <- function(x, matchex01) x %>%
  filter(grepl("matchex01", Source)) %>%
  summarise(sum(Money))

然而sum_sessions（dataframe，＆＃34; organic＆＃34;）给出0作为输出。但是当我使用时：

x %>%
  filter(grepl("matchex01", Source)) %>%
  summarise(sum(Money))

它给出了正确的答案。 我也试过使用filter_（）但它没有用。错误输出是：

  

grepl中的错误（＆＃34; matchex01＆＃34;，来源）：对象＆＃39;来源＆＃39;找不到

基本上我使用示例数据框作为：

Source  Money
organic 20.45
direct  30.98
e-mail  67.23 
aff_pp  32.09