使用rlang包解析引用的参数

时间:2018-11-12 23:45:49

标签: r tidyverse rlang

我希望将单个参数字符串拆分为两个参数,并在函数的不同部分中使用每个参数。

是否可以使用准引号(!!)或其他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

1 个答案:

答案 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的值。我假设在这种情况下,将返回整个朋友列表。