你可以在R中通过引用吗

发布于04月09日

你能用"R"通过引用传递吗？

setClass("MyClass",
    representation(
    name="character"
    ))


instance1 <-new("MyClass",name="Hello1")
instance2 <-new("MyClass",name="Hello2")

array = c(instance1,instance2)

instance1
array

instance1@name="World!"

instance1
array

输出是

> instance1
An object of class “MyClass”
Slot "name":
[1] "World!"

> array
[[1]]
An object of class “MyClass”
Slot "name":
[1] "Hello1"


[[2]]
An object of class “MyClass”
Slot "name":
[1] "Hello2"

但我希望是这样

> instance1
An object of class “MyClass”
Slot "name":
[1] "World!"

> array
[[1]]
An object of class “MyClass”
Slot "name":
[1] "World!"


[[2]]
An object of class “MyClass”
Slot "name":
[1] "Hello2"

可能吗？

推荐答案

赋值语句中的对象是不可变的.R将复制对象而不是参考.

> v = matrix(1:12, nrow=4)
> v
           [,1] [,2] [,3]
     [1,]    1    5    9
     [2,]    2    6   10
     [3,]    3    7   11
     [4,]    4    8   12
> v1 = v
> v1[,1]     # fetch the first column 
     [1] 1 2 3 4

(proviso:上述陈述适用于R primitives，例如向量、矩阵)，也适用于functions；我不能确定这是否适用于allR物体——只是其中的大多数，以及大多数最常用的物体.)

如果你不喜欢这种行为，你可以在R软件包的帮助下 Select 退出.例如，有一个名为R.oo的R包，允许您模拟通过引用传递的行为；R.oo在CRAN上有售.