Propagar funcionalidad con herencia

Programación orientada a objetos con S3 y R6 en R

Richie Cotton

Data Evangelist at DataCamp

ch4_1-propagating-functionality-with-inheritance.004.png

thing_factory <- R6Class(
  "Thing",
  private = list(
    a_field = "a value",
    another_field = 123
  ),
  public = list(
    do_something = function(x, y, z) {
      # do something here
    }
  )
)

ch4_1-propagating-functionality-with-inheritance.007.png

child_thing_factory <- R6Class(
  "ChildThing",
  inherit = thing_factory

  public = list(
    do_something_else = function() {
      # more functionality
    }
  )

)

ch4_1-propagating-functionality-with-inheritance.012.png

ch4_1-propagating-functionality-with-inheritance.015.png

ch4_1-propagating-functionality-with-inheritance.016.png

a_thing <- thing_factory$new()

class(a_thing)

"Thing" "R6"

inherits(a_thing, "Thing")

TRUE

inherits(a_thing, "R6")

TRUE

a_child_thing <- child_thing_factory$new()

class(a_child_thing)

"ChildThing" "Thing"      "R6"

inherits(a_child_thing, "ChildThing")

TRUE

inherits(a_child_thing, "Thing")

TRUE

inherits(a_child_thing, "R6")

TRUE

Resumen

Propaga funcionalidad con herencia
Usa el arg inherit en R6Class()
Los hijos heredan la funcionalidad del padre
... pero no al revés

¡Vamos a practicar!

Programación orientada a objetos con S3 y R6 en R