3

「関数」のS4スーパークラスを作成し、関数呼び出しからそのオブジェクトのスロットにアクセスできますか？現時点で私は持っています：

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

今私が本当に望んでいるのは、関数がそれ自体の@powスロットのxの累乗になることです。

> 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

本当に簡単なことではありませんでした、そして私は「反重力をインポートする」ことさえする必要がありませんでした…。

4

3 に答える 3

3

少しの言語操作に頼る

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
于 2011-12-01T11:32:26.797 に答える
0

それはあなたが本当に欲しいものに依存すると思います。この実装はあなたの目標に少し近づいていますか？

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
于 2011-11-30T15:47:07.767 に答える
0

親関数にはを介してアクセスできるよう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しかし、この質問が最初に議論されたときに存在するかどうかはわかりません。

于 2017-08-26T09:45:41.643 に答える