Блог

Я пытаюсь понять классы RC в R (безуспешно). У меня есть простая функция, которая возвращает объект класса Example . Теперь я хотел бы использовать эту функцию в классе RC, где я реализую некоторые методы для нее. На данный момент я не понимаю, как структурировать свой код (например, если функция является одним r-скриптом, а класс RC я пытаюсь создать другой, или если они должны быть в одном и том же r-скрипте), и как правильно обращаться к объектам класса Example , чтобы получить желаемый результат.

Ниже приведен пример:

 example <- function(x, y){
  tripplex <- x*3
  doubbley <- y*2
  xy_sum <- x y
  
  Example <- list(trippled.x = tripplex, doubbled.y = doubbley, sum =xy_sum)
  class(Example) <- "Example"
  Example
}

### I now want to use this function in an RC class and write some methods for it. ###
testClass <- setRefClass("testClass",
                         fields=list(x = "numeric",y = "numeric"),
                         methods = list(
                           initialize = function(){
                             # I don't know what to initialize it as.
                           },
                           show = function() {
                             cat(paste0("Call:n", "x=", .self$x ,"n", "y=", .self$y))
                             # This doesn't print proper x,y values.
                             }))

 

Моя идея заключается в том, что я хочу что-то вроде этого вывода:

 >object <- example(5, 10)
>print(object)
Call: 
x=5
y=10
>
>object$trippled.x
15
 

С уважением

Вы ищете что-то подобное?

 testClass <- setRefClass("testClass",
               fields   = list(
                  x = "numeric", 
                  y = "numeric"
               ),
                methods = list(

                  initialize = function(x, y) {
                    .self$x = x
                    .self$y = y
                  },

                  tripled_x  = function() {
                    return(3 * .self$x)
                  },
                  
                  show       = function() {
                    cat(paste0("Call:n", "x=", .self$x ,"n", "y=", .self$y))

                  }))

 object <- testClass(5, 10)
 print(object)
#> Call:
#> x=5
#> y=10
 object$tripled_x()
#> [1] 15
 

^{Создано 2021-09-20 с помощью пакета reprex (версия 2.0)}