r - 如何以编程方式定义选项

Question

我正在尝试使用如下所示的字符串向量以编程方式定义选项。但是，该选项未定义，它返回 NULL 值。对此有什么最佳实践或功能吗？

f <- "z" 
options(f = TRUE)
getOption("z")
# returns NULL

Answer 1

根据文档:

Options can also be passed by giving a single unnamed argument which is a named list

所以你可以这样做

f <- list(z = TRUE)
options(f)
getOption("z")
#> [1] TRUE

或者，如果您希望能够在您的问题中使用输入格式，您可以使用以下函数:

prog_options <- function(...)
{
  mc <- as.list(match.call()[-1])
  names(mc) <- 
    sapply(names(mc), function(x) eval(as.name(x), envir = parent.frame()))
  options(mc)
}

允许以下内容:

f <- "z"
g <- "y"

prog_options(f = TRUE, g = "Yes")

getOption("z")
#> [1] TRUE

getOption("y")
#> [1] "Yes"