如何将字符串作为参数传递给需要 R 中变量的函数

Question

第一次调用函数 f 有效，第二次无效。如何将字符串 ("v") 传递给函数 f 以使函数按预期工作？

library(data.table)

f<-function(t,x) t[,deparse(substitute(x)),with=F]

dat<-data.table(v="a")

f(dat,v)
#    v
# 1: a

f(dat,eval(parse(text="v")))
# Error in `[.data.table`(t, , deparse(substitute(x)), with = F) : 
#   column(s) not found: eval(parse(text = "v")) 

Answer 1

它不再是单行了，但你可以测试你传入的内容：

library(data.table)
library(purrr)

dat <- data.table(v="a")

f <- function(dt, x) {

  # first, see if 'x' is a variable holding a string with a column name

  seval <- safely(eval)
  res <- seval(x, dt, parent.frame())

  # if it is, then get the value, otherwise substitute() it

  if ((!is.null(res$result)) && inherits(res$result, "character")) {
    y <- res$result
  } else {
    y <- substitute(x)
  }

  # if it's a bare name, then we deparse it, otherwise we turn
  # the string into name and then deparse it

  if (inherits(y, "name")) {
    y <- deparse(y) 
  } else if (inherits(y, "character")) {
    y <- deparse(as.name(x))
  }

  dt[, y, with=FALSE]

}

f(dat,v)
##    v
## 1: a

f(dat, "v")
##    v
## 1: a

V <- "v"
f(dat, V)
##    v
## 1: a

f(dat, VVV)
#> throws an Error

我将它从t 切换到dt，因为我不喜欢使用内置函数的名称（如t()）作为变量名，除非我真的必须这样做。它可能会在较大的代码块中引入细微的错误，这可能会令人沮丧。

我还将在每次运行 f() 时将 safely() 调用移到 f() 函数之外以保存函数调用。如果愿意，您可以改用老式的try()，但您必须检查try-error，这可能会在某天中断。你也可以tryCatch() 包装它，但safely() 的方式对我来说似乎更干净。