#' an example function
#'
#' @export
a <- function(x) {
if (x <= 1) {
1
} else {
2
}
}
#' @export
TestRC <- setRefClass("TestRC", # nolint
fields = list(name = "character", enabled = "logical"),
methods = list(
show = function(x) {
1 + 3
},
print2 = function(x) {
1 + 2
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.