Clonando objetos R6
Programação Orientada a Objetos com S3 e R6 em R
Richie Cotton
Data Evangelist at DataCamp
- Ambientes copiam por referência
- Objetos R6 também
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_thinga_thing$a_field <- 456
a_copy$a_field
456
clone() copia por valor
a_clone <- a_thing$clone()
a_thing$a_field <- 789
a_clone$a_field
456
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"
Resumo
- Objetos R6 copiam por referência
- Para copiar por valor, use
clone() clone()é gerado automaticamenteclone(deep = TRUE)vale para campos R6
Vamos praticar!
Programação Orientada a Objetos com S3 e R6 em R
