#' Router class
Router = R6Class(
"Router",
inherit = plumber,
public = list(
#' Initialize router
#'
#' @param filters plumber filter
#' @param envir global environment
initialize = function(filters=plumber:::defaultPlumberFilters,envir) {
if (missing(envir)){
private$envir <- new.env(parent=.GlobalEnv)
} else {
private$envir <- envir
}
private$errorHandler <- plumber:::defaultErrorHandler()
private$notFoundHandler <- plumber:::default404Handler
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.