Nothing
# Check non-translated core arguments
# Each model has its own definition of this
check_args <- function(object) {
UseMethod("check_args")
}
#' @export
check_args.default <- function(object) {
invisible(object)
}
check_spec_pred_type <- function(object, type) {
if (!spec_has_pred_type(object, type)) {
possible_preds <- names(object$spec$method$pred)
rlang::abort(c(
glue::glue("No {type} prediction method available for this model."),
glue::glue(
"Value for `type` should be one of: ",
glue::glue_collapse(glue::glue("'{possible_preds}'"), sep = ", ")
)
))
}
invisible(NULL)
}
spec_has_pred_type <- function(object, type) {
possible_preds <- names(object$spec$method$pred)
any(possible_preds == type)
}
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.