R/internal.R

In dashHtmlComponents: Vanilla HTML Components for 'Dash'

.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)
    }
}