Nothing
#| config(debug = TRUE)
a <- R6Class(
'test',
public = list(
x = 0,
initialize = function(x = 999) {
self$x <- x
self
}
)
)
a_instance <- a$new()
print(a_instance$x)
a_instance_2 <- a$new(123)
print(a_instance_2$x)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.