## ----echo = FALSE--------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
## ----eval=FALSE----------------------------------------------------------
# # An example class
# Simple <- R6Class("Simple",
# public = list(
# x = 10,
# getx = function() self$x
# )
# )
#
# # This will enable debugging the getx() method for objects of the 'Simple'
# # class that are instantiated in the future.
# Simple$debug("getx")
#
# s <- Simple$new()
# s$getx()
# # [Debugging prompt]
## ----eval=FALSE----------------------------------------------------------
# # Disable debugging for future instances:
# Simple$undebug("getx")
#
# s <- Simple$new()
# s$getx()
# #> [1] 10
## ----eval=FALSE----------------------------------------------------------
# s <- Simple$new()
# debug(s$getx)
# s$getx()
# # [Debugging prompt]
## ----eval=FALSE----------------------------------------------------------
# undebug(s$getx)
# s$getx()
# #> [1] 10
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.