如果我只知道对象的名称作为字符串，如何覆盖 R 中的对象？

Question

在我的 R 函数中，我正在处理一个字符串，该字符串包含位于工作区某处的对象的名称。我想覆盖对象（例如，将对象转换为矩阵）。

但是，我只知道对象的名称是字符串，我没有对象引用。我知道我可以使用get(x) 函数（其中x 是引用对象的字符串）或eval(as.name(x)) 之类的东西将字符串转换为对象引用。但是，这仅适用于访问对象，不适用于覆盖对象。

我怎样才能做到这一点？这是一些代码：

myvector <- 1:5              # my object
x <- "myvector"              # text representation of the object
get(x) <- as.matrix(get(x))  # my first attempt
eval(as.name(x)) <- as.matrix(eval(as.name(x)))  # second attempt

请注意，第一行不是我要在工作区中覆盖此对象的函数的一部分，因此我不能只写myvector <- as.matrix(myvector)。

Answer 1

您尝试在函数中按名称分配全局变量。为什么？应该避免操纵全局变量，正如评论中所说，应该存在更好的方式来处理您的问题并避免全局变量的副作用。
您应该使用assign 按名称更改值。默认情况下，它会在当前环境（本地）中更改值，因此您还应该设置变量在哪个环境中定义。像这样的东西：

 assign( x , as.matrix(get(x)),envir=.GlobalEnv)

或者，告诉assign 搜索直到遇到变量：

 assign( x , as.matrix(get(x)),inherits=TRUE)

编辑更好的解决方案

1. 返回新值，稍后在全局环境中赋值

   assign( x , function(x){....})
   

2. 如果变量是一种全局设置，您可以定义一个环境来定义 myvector。

   myoptions <- new.env()
   myoptions$myvalue <- 1:5
   function(x){ assign(x,newvalue,myoptions )}