我希望将单个参数字符串拆分为两个参数,并在函数的不同部分中使用每个参数。
是否可以使用准引号(!!
)或其他rlang函数来做到这一点?
谢谢!
数据:
person <- tibble(id = 1, age = 20)
friends <- tibble(id = c(2, 3, 4, 5), age = c(48, 29, 20, 48))
(不起作用)功能:
different_age_friends <- function(condition, person = person, friends = friends ) {
person <- person
friends <- friends
condition <- str_split(condition, " ~ ", simplify = T)
condition_statement <- condition[1]
filter_statement <- condition[2]
if(!!condition_statement) {
different_age_friends <- friends %>%
filter(!!filter_statement)
}
return(return_same_age_friends)
}
致电:
different_age_friends(condition = "age == 20 ~ age == 48")
所需的输出
id age
2 48
5 48
答案 0 :(得分:2)
使用rlang::parse_expr
将字符串转换为表达式,并使用eval
对其求值。 eval()
允许您在表达式的第二个参数中为其提供上下文,我们在其中提供person
数据框。对于filter
,上下文已经理解为%>%
管道左侧的数据框。
我们处理这两个表达式的另一个区别是filter()
有一个额外的内部层quasiquoation。由于您已经有了一个表达式,因此不需要再次将其引起引用,因此可以使用!!
来取消对该表达式的引用。
different_age_friends <- function(condition, p = person, f = friends)
{
stmts <- str_split(condition, " ~ ")[[1]] %>% map( rlang::parse_expr )
if( eval(stmts[[1]], p) ) # Effectively: eval(age == 20, person)
f %>% filter(!!stmts[[2]]) # Effectively: friends %>% filter(age == 48)
else
f
}
different_age_friends(condition = "age == 20 ~ age == 48")
# # A tibble: 2 x 2
# id age
# <dbl> <dbl>
# 1 2 48
# 2 5 48
次要音符:
different_age_friends
的值。我假设在这种情况下,将返回整个朋友列表。