Nothing
# context("r7")
#
# test_that("R7Class", {
#
# MyClass <- R7Class(
# "myclass",
# public = list(
# initialize = function(x) {
# self$x <- x
# },
# set_x = function(x) {
# self$x <- x
# },
# set_y2 = function(y) {
# private$set_y(y)
# }
# ),
# active = list(
# act = function() {
# self$x
# }
# ),
# private = list(
# set_y = function(y) {
# "hello"
# }
# )
# )
#
# s <- MyClass$new(x = 1)
# expect_equal(s$x, 1)
#
# s$set_x(2)
# expect_equal(s$x, 2)
#
# s$set_y2(4)
# expect_equal(s$y, 4)
#
# expect_equal(s$act, 2)
# })
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.