CLASS00 = R6::R6Class("R6CLASS00",
public = list(
initialize = function(...) { }
,method00 = function() { }
)
,private = list (
.var00 = NA
,.method00 = function(data) {}
)
)
CLASS10 = R6::R6Class("R6CLASS10", inherit=CLASS00,
public = list(
attr101 = NULL
,attr102 = NULL
,initialize = function() { CLASS20$new() }
,finalize = function() {}
,method101 = function() {}
)
,private = list(
.priv101 = 1
,.method101 = function(dato) {CLASS21$new() }
)
)
CLASS20 = R6::R6Class("R6CLASS20",
public = list(
attr201 = NULL
,attr202 = NULL
,initialize = function() {}
,finalize = function() {}
,method201 = function() {}
)
,private = list(
.priv201 = 1
,.method201 = function(dato) {}
)
)
CLASS21 = R6::R6Class("R6CLASS21",
public = list(
attr211 = NULL
,attr212 = NULL
,initialize = function() {}
,finalize = function() {}
,method211 = function() {}
)
,private = list(
.priv211 = 1
,.method211 = function(dato) {}
)
)
c00 = CLASS00$new()
c10 = CLASS10$new()
c20 = CLASS20$new()
c21 = CLASS21$new()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.