Я пытаюсь передать строку функции, которая использует dplyr::filter
, но я не уверен, как это сделать, даже после прочтения статьи на сайте Tidyverse . Благодарен за любые указатели.
В идеале я надеюсь передать строку, такую как '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)
}