2

標準の 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 に新しい環境を割り当てる方法はありますか?

4

0 に答える 0