Nothing
#' Prepares parsed model object
#'
#' @param x A parsed model object
#'
#' @export
as_parsed_model <- function(x) {
UseMethod("as_parsed_model")
}
#' @export
as_parsed_model.list <- function(x) {
t <- paste0("pm_", x$general$type)
class(x) <- c("parsed_model", t, class(x))
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.