for_onload(function() {
Result <- R6Class(
"Result",
public = list(
error_list = NULL,
data = NULL,
as_json = function(...) {
result_as_json(self, ...)
},
initialize = function(error_list = ErrorList$new()) {
self$error_list <- error_list
self$data <- NULL
invisible(self)
},
print = function(...) {
print(self$as_json(...))
}
)
)
}) # end for_onload
format.Result <- function(x, ...) {
as.character(x$as_json(...))
}
as.character.Result <- function(x, ...) {
as.character(x$as_json(...))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.