R refClass方法

Question

我在下面使用R refClass示例。

Person = setRefClass("Person",fields = list(name = "character", age = "numeric") 
      ) ## Person = setRefClass("Person", 


Person$methods = list(
       increaseAge <- function(howMuch){ 
       age = age + howMuch 
       } 
     ) 

當我將此程序存儲在一個名爲Person.R的文件中並將其來源時，它不顯示任何錯誤。現在我實例化一個新的對象。

p = new("Person",name="sachin",age=40) 

我嘗試調用方法increaseAge，使用p$increaseAge(40)，它顯示了以下錯誤

Error in envRefInferField(x, what, getClass(class(x)), selfEnv) : 
    "increaseAge" is not a valid field or method name for reference class "Person" 

我想不通爲什麼它說，該方法increaseAge不是有效的方法名時我已經定義了它。

Answer 1

我使用你的代碼出錯。我會做這樣的事情：

Person = setRefClass("Person", 
         fields = list(name = "character", age = "numeric"), 
         methods = list(
         increaseAge = function(howMuch) age <<- age + howMuch 
        )) 

> p = new("Person",name="sachin",age=40) 
> p$increaseAge(5) 
> p$age 
[1] 45 

Answer 2

要指定一個獨立的方法類定義，調用methods()功能發電機上。此外，還可以使用<<-或.self$age =進行分配。

Person$methods(increaseAge=function(howMuch) { 
    age <<- age + howMuch 
    ## alterenatively, .self$age = age + howMuch or .self$age <- age + howMuch 
}) 

記住的是，R效果最好的載體，所以覺得Persons類（造型列），代表你的學習所有的個人，而不是Person實例（模擬行）的集合。