使用Dplyr进行编程-将字符串传递给函数

Question

我正在尝试将字符串传递给使用dplyr::filter的函数，但即使读取the article on the tidyverse website后也不确定如何处理。感谢任何指针。

理想情况下，我希望将类似'survey'的字符串传递给下面的函数，以使其在str_detect函数中使用。

我的尝试：

sel_measures <- function(data_source, variable) {
variable <- rlang::sym(variable)

data_source %>% 
 filter(str_detect(summary, !!variable) | 
           str_detect(labels, !!variable) | 
           str_detect(labels_1, !!variable) | 
           str_detect(labels_2, !!variable) | 
           str_detect(labels_3, !!variable) | 
           str_detect(labels, 'gene') | 
           str_detect(labels_1, 'gene') | 
           str_detect(labels_2, 'gene') | 
           str_detect(labels_3, 'gene') |
           str_detect(labels, 'nerv') | 
           str_detect(labels_1, 'nerv') | 
           str_detect(labels_2, 'nerv') | 
           str_detect(labels_3, 'nerv'),
           str_detect(issue_type, 'Task') |
           str_detect(issue_type, 'Issue')
         ) %>% select(summary, priority, assignee, 'last comment', labels) %>% 
  filter(status != 'Done') %>% 
  arrange(priority, status)
}