Nothing
.dashHtmlComponents_js_metadata <- function() {
deps_metadata <- list(`dash_html_components` = structure(list(name = "dash_html_components",
version = "1.0.3", src = list(href = NULL,
file = "deps"), meta = NULL,
script = 'dash_html_components.min.js',
stylesheet = NULL, head = NULL, attachment = NULL, package = "dashHtmlComponents",
all_files = FALSE), class = "html_dependency"),
`dash_html_components` = structure(list(name = "dash_html_components",
version = "1.0.3", src = list(href = NULL,
file = "deps"), meta = NULL,
script = 'dash_html_components.min.js.map',
stylesheet = NULL, head = NULL, attachment = NULL, package = "dashHtmlComponents",
all_files = FALSE, dynamic = TRUE), class = "html_dependency"))
return(deps_metadata)
}
dash_assert_valid_wildcards <- function (attrib = list("data", "aria"), ...)
{
args <- list(...)
validation_results <- lapply(names(args), function(x) {
grepl(paste0("^(", paste0(attrib, collapse="|"), ")-[a-zA-Z0-9_-]+$"),
x)
})
if (FALSE %in% validation_results) {
stop(sprintf("The following props are not valid in this component: '%s'",
paste(names(args)[grepl(FALSE, unlist(validation_results))],
collapse = ", ")), call. = FALSE)
}
else {
return(args)
}
}
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.