継承で機能を引き継ぐ

R における S3 と R6 を使ったオブジェクト指向プログラミング

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

まとめ

継承で機能を引き継ぐ
R6Class()のinherit 引数を使用
子は親の機能を得る
ただし逆は不可

演習に進みましょう！

R における S3 と R6 を使ったオブジェクト指向プログラミング