R6 객체 복제

R에서 S3와 R6로 배우는 Object-Oriented Programming

Richie Cotton

Data Evangelist at DataCamp

환경은 참조로 복사됩니다
R6 객체도 같습니다

thing_factory <- R6Class(
  "Thing",

  private = list(
    ..a_field = 123
  ),

  active = list(
    a_field = function(value) {
      if(missing(value)) {
        private$..a_field
      } else {
        private$..a_field <- value
      }
    }
  )

)

a_thing <- thing_factory$new()
a_copy <- a_thing

a_thing$a_field <- 456

a_copy$a_field

`clone()`은 값 복사입니다

a_clone <- a_thing$clone()

a_thing$a_field <- 789
a_clone$a_field

container_factory <- R6Class(
  "Container",

  private = list(
    ..thing = thing_factory$new()
  ),

  active = list(
    thing = function(value) {
      if(missing(value)) {
        private$..thing
      } else {
        private$..thing <- value
      }
    }
  )

)

a_container <- container_factory$new()
a_clone <- a_container$clone()

a_container$thing$a_field <- "a new value" 
a_clone$thing$a_field

"a new value"

a_deep_clone <- a_container$clone(deep = TRUE)

a_container$thing$a_field <- "a different value" 
a_deep_clone$thing$a_field

"a new value"

요약

R6 객체는 참조로 복사됩니다
clone()으로 값 복사를 합니다
clone()은 자동 생성됩니다
clone(deep = TRUE)는 R6 필드용입니다

연습해 봅시다!

R에서 S3와 R6로 배우는 Object-Oriented Programming

R6 객체 복제

clone()은 값 복사입니다

요약

연습해 봅시다!

`clone()`은 값 복사입니다