使用 tidy_eval/rlang 上下文将函数作为参数传递

Question

我有一个想要传递给它的函数。但是，我似乎无法使用 tidy_eval 上下文使其工作。

这是一些数据：

df <- tribble(
  ~A, ~B,
  "hi", "hello",
  "bye", "later"
)

我希望能够像这样调用函数：

my_quoting_fn(df, A, str_detect(., pattern = "h*"))

其中第三个参数可以是任何不同的函数。

这是我第一次尝试编写函数：

my_quoting_fn <- function(df, col, func) {
  func <- enquo(func)
  expr <- quo_get_expr(func)

  df %>% 
    pull({{col}}) %>%
    eval(expr)

上面给出了错误：

eval(., expr) 中的错误：'language' 类型的'envir' 参数无效`

如果我尝试：

my_quoting_fn <- function(df, col, func) {

  df %>% 
    pull({{col}}) %>%
    {{func}}

我得到了错误

stri_detect_regex(string, pattern, negate = negate, opts_regex = opts(pattern)) 中的错误： 目的 '。'没找到

Answer 1

如果您不想使用波浪线引号，则需要引用表达式并将其解析为 rlang::as_function 可以理解的形式，然后再转换它以便调用：

library(tidyverse)

df <- tribble(
    ~A, ~B,
    "hi", "hello",
    "bye", "later"
)

my_quoting_fn <- function(df, col, func) {
    func <- enexpr(func) %>%    # only want the expression, not the environment of a quosure
        rlang::new_formula(NULL, .) %>%    # tilde-quote the expression
        rlang::as_function()    # make it a formula

    df %>% 
        pull({{col}}) %>% 
        func()
}

my_quoting_fn(df, A, str_detect(., pattern = "h*"))
#> [1] TRUE TRUE

不过，这不是一个众所周知的习语；保持简单可能更好。

Answer 2

如果您将函数作为带有波浪号 (~) 的公式传递，则可以使用 rlang::as_function()。

my_quoting_fn <- function(df, col, func) {
    func = as_function(func)

    df %>%
        pull({{col}}) %>%
        func
}
my_quoting_fn(df, A, ~str_detect(., pattern = "h*"))
[1] TRUE TRUE