自定义函数:将tidyselect参数作为字符串返回，而不执行参数。

Question

我想在我的自定义函数中创建一个段，其中参数"evars“的输入作为字符串返回，而不执行/计算参数。参数是一个tidyselect函数，用于从数据帧中提取指定的列。

简化函数：

df <- data.frame(var1  = c("value_1", "value_2"),
                 var2.1 = c("value_1", "value_2"),
                 var2.2 = c("value_1", "value_2"),
                 var3 =  c("value_1", "value_2"))

customfunction <- function(df = df, evars = NULL){
   df2 <- df %>% select({{evars}}) 
   if(!is.null(evars)){paste(evars)}
} 

现在，我希望它将参数作为字符串返回，而不执行它：

> customfunction(df = df, evars = c("var1",contains("2")))
[1] "c("var1",contains("2"))"

然而，现在它将返回：

Error: `contains()` must be used within a *selecting* function.
i See <https://tidyselect.r-lib.org/reference/faq-selection-context.html>.
Run `rlang::last_error()` to see where the error occurred.

如何使函数返回参数"evars“的确切输入，而不执行它？

这个问题似乎是由于tidyselect函数in ()而发生的，例如，这段代码不会导致错误：

> customfunction(df=df,evars=c("var1","var3"))
[1] "var1" "var3"

Answer 1

我们可以使用match.call()并提取“evars”

customfunction <- function(df = df, evars = NULL){
   v1 <- match.call()$evars
   df2 <- df %>%
     select({{evars}}) 
     
     v1
  
   
} 

-testing

customfunction(df = df, evars = c("var1",contains("2")))
c("var1", contains("2"))

如果输出需要为字符串，则使用capture.output包装

customfunction <- function(df = df, evars = NULL){
   v1 <- capture.output(match.call()$evars)
   df2 <- df %>%
     select({{evars}}) 
     
     v1
  
   
} 

customfunction(df = df, evars = c("var1",contains("2")))
[1] "c(\"var1\", contains(\"2\"))"