R中的阴影变量

Question

我想做一些不寻常的事情......

我已经在全局范围内创建了一个变量，但是，我想在一个函数中使用它，从一个字符串。

通常情况下，我会使用

abc <- eval(parse(text=paste(test, "_ext", sep = "")))

并在函数末尾用 abc 更新 test_ext 的任何内容。在这种特殊情况下，这是不可能的，所以我想创建一些...

a <- 10 #global scope
b <- 5  #global scope
test <- function(letter)
{
    letter <<- letter + 10
}
test("b")

所以只要letter 更新，b 就会更新。

这可能吗？

Answer 1

您可以创建一个只包含您想要操作的对象的自定义环境，而不是搞乱全局环境。当您更改不想更改的变量时，这可以避免潜在地导致很多问题。

类似这样的：

e <- new.env()
e$a <- 10
e$b <- 5

test <- function(letter)
{
    if(!exists(letter, e, inherits=FALSE)) stop("object ", letter, " not found")
    val <- get(letter, e) + 10
    assign(letter, val, e)
}

Answer 2

以下是您应该执行此操作的方法：

mylist <- list(a=10, b=5)
# $a
# [1] 10
# 
# $b
# [1] 5

test <- function(funlist,letter)
{
  funlist[[letter]] <- funlist[[letter]] + 10
  funlist
}

mylist <- test(mylist,"b")

mylist
# $a
# [1] 10
# 
# $b
# [1] 15

抱歉，我不会通过回答您提出的问题来支持您的不良做法。函数在 R 中不应有副作用（这意味着：不要使用 <<-）。