Propager des fonctionnalités avec l'héritage

Programmation orientée objet avec S3 et 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

Résumé

Propager des fonctionnalités avec l'héritage
Utilisez l'argument inherit de R6Class()
Les enfants héritent des fonctionnalités du parent
... mais l'inverse est faux

Passons à la pratique !

Programmation orientée objet avec S3 et R6 en R