Nothing
#' @export
extract_parameter_dials.parameters <- function(x, parameter, ...) {
check_dots_empty()
check_string(parameter, allow_empty = FALSE)
which_id <- which(x$id == parameter)
if (length(which_id) == 0) {
cli::cli_abort("No parameter exists with id {.val {parameter}}.")
}
x$object[[which_id]]
}
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.