r - 访问 S4 函数超类的插槽

Question

我可以创建一个“函数”的 S4 超类并从函数调用中访问该对象的插槽吗？目前我有：

> setClass("pow",representation=representation(pow="numeric"),contains="function")
[1] "pow"
> z=new("pow",function(x){x^2},pow=3)
> z(2)
[1] 4

现在我真正想要的是函数是 x 到自身 @pow 插槽的幂，所以如果我这样做：

> z@pow=3 

我得到立方体，如果我这样做：

> z@pow=2

我得到正方形。

但我不知道如何像在 Python 中那样获得对“自我”的引用。我猜它在环境中的某个地方......

以下是它在 python 中的工作方式：

class Pow:
    def __init__(self,power):
        self.power=power
        self.__call__ = lambda x: pow(x,self.power)

p = Pow(2) # p is now a 'squarer'
print p(2) # prints 4

p.power=3 # p is now a 'cuber'
print p(2) # prints 8

再简单不过了，我什至不必做“进口反重力”....

Answer 1

诉诸一点语言操纵

setClass("Pow", representation("function", pow="numeric"),
         prototype=prototype(
           function(x) {
               self <- eval(match.call()[[1]])
               x^self@pow
           }, pow=2))

接着

> f = g = new("Pow")
> g@pow = 3
> f(2)
[1] 4
> g(2)
[1] 8

尽管正如 Spacedman 所说，事情可能会出错

> f <- function() { Sys.sleep(2); new("Pow") }
> system.time(f()(2))
   user  system elapsed 
  0.002   0.000   4.005 

行之内多一点，但偏离问题规范，并且在眼睛上可能同样容易的是

setClass("ParameterizedFunFactory",
         representation(fun="function", param="numeric"),
         prototype=prototype(
           fun=function(x, param) function(x) x^param,
           param=2))

setGeneric("fun", function(x) standardGeneric("fun"))
setMethod(fun, "ParameterizedFunFactory",
          function(x) x@fun(x, x@param))

和

> f = g = new("ParameterizedFunFactory")
> g@param = 3
> fun(f)(2)
[1] 4
> fun(g)(2)
[1] 8

Answer 2

我认为这取决于你真正想要什么。这个实现是否更接近您的目标？

setClass("pow",representation=representation(pow="numeric"),contains="function")
z=new("pow",function(x, pow=3){x^pow})
>  z(2)
[1] 8
 z(2,4)
#[1] 16

Answer 3

似乎可以通过sys.function.

setClass("pow", slots = c(pow = "numeric"), contains = "function")
z <- new("pow", function (x) x^(sys.function()@pow), pow = 2)
z(6)
# [1] 36
z@pow <- 3
z(6)
# [1] 216

不过，我不知道sys.function第一次讨论这个问题时是否存在。