標準の R 関数の環境を変更するのは非常に簡単です。
foo <- function(x) x + z
env0 <- new.env()
env0$z <- 0
environment(foo) <- env0
z <- 1
foo(3)
ただし、S4 メソッドで同じタイプの割り当てを実行することはできません。
setClass(Class = "MyClass",
representation = representation(
x = "numeric"
)
)
myClass <- function(n) {
new("MyClass",
x = rnorm(n)
)
}
setGeneric(
name = "foo",
def = function(object) {standardGeneric("foo")}
)
setMethod(
f = "foo",
signature = "MyClass",
definition = function(object) {
sqrt(abs(xx))
}
)
# Here everything is Ok
showMethods("foo")
e1 <- new.env()
e1$xx <- st@x
environment(foo) <- e1
# After the environment assignment foo is no longer a method of class MyClass
showMethods("foo")
メソッド foo に新しい環境を割り当てる方法はありますか?