diff --git a/.Rbuildignore b/.Rbuildignore index c687d3d2..c96266c5 100644 --- a/.Rbuildignore +++ b/.Rbuildignore @@ -2,8 +2,22 @@ ^\.Rproj\.user$ Makefile +CHANGELOG.md announcement\.Rmd todo\.txt +gulpfile.js +package-lock.json +package.json + + .github +.eslintrc +.prettierrc +.circleci +.pytest_cache +build/.dockerignore tests/integration tests/circleci +gulp-assets +node_modules +scripts diff --git a/.circleci/config.yml b/.circleci/config.yml index 6c6f49b7..fdecb487 100644 --- a/.circleci/config.yml +++ b/.circleci/config.yml @@ -1,15 +1,13 @@ version: 2 jobs: - - "test": &test-template working_directory: ~/dashr docker: - image: plotly/dashr:ci auth: username: dashautomation - password: $DASH_PAT_DOCKERHUB + password: $DASH_PAT_DOCKERHUB environment: PERCY_PARALLEL_TOTAL: '-1' PUPPETEER_SKIP_CHROMIUM_DOWNLOAD: 'True' @@ -33,18 +31,18 @@ jobs: - run: name: 🚧 install R dependencies command: | - sudo Rscript -e 'commit_hash <- readChar("commit.txt", file.info("commit.txt")$size); message("Preparing to install plotly/dashR ", commit_hash, " ..."); install.packages("remotes"); remotes::install_github("plotly/dashR", upgrade=TRUE, ref=commit_hash, force=TRUE)' + sudo Rscript -e 'commit_hash <- readChar("commit.txt", file.info("commit.txt")$size); message("Preparing to install plotly/dashR ", commit_hash, " ..."); install.packages("remotes"); remotes::install_github("plotly/dashR", upgrade=TRUE, ref=commit_hash, dependencies=TRUE, force=TRUE)' - run: name: ⚙️ Integration tests command: | python -m venv venv . venv/bin/activate + pip install --upgrade pip git clone --depth 1 https://github.com/plotly/dash.git dash-main cd dash-main && pip install -e .[dev,testing] --progress-bar off && cd .. cd dash-main/\@plotly/dash-generator-test-component-nested && npm ci && npm run build && sudo R CMD INSTALL . && cd ../../.. cd dash-main/\@plotly/dash-generator-test-component-standard && npm ci && npm run build && sudo R CMD INSTALL . && cd ../../.. - export PATH=$PATH:/home/circleci/.local/bin/ pytest --nopercyfinalize --junitxml=test-reports/dashr.xml tests/integration/ - store_artifacts: path: test-reports @@ -67,6 +65,4 @@ workflows: version: 2 build: jobs: - - "test": - context: - - dash-docker-hub + - "test" diff --git a/.eslintrc b/.eslintrc new file mode 100644 index 00000000..b790e292 --- /dev/null +++ b/.eslintrc @@ -0,0 +1,126 @@ +{ + "extends": ["eslint:recommended", "prettier"], + "parser": "babel-eslint", + "parserOptions": { + "ecmaVersion": 6, + "sourceType": "module", + "ecmaFeatures": { + "arrowFunctions": true, + "blockBindings": true, + "classes": true, + "defaultParams": true, + "destructuring": true, + "forOf": true, + "generators": true, + "modules": true, + "templateStrings": true, + "jsx": true + } + }, + "env": { + "browser": true, + "es6": true, + "jasmine": true, + "jest": true, + "node": true + }, + "globals": { + "jest": true + }, + "plugins": [ + "react", + "import" + ], + "rules": { + "accessor-pairs": ["error"], + "block-scoped-var": ["error"], + "consistent-return": ["error"], + "curly": ["error", "all"], + "default-case": ["error"], + "dot-location": ["off"], + "dot-notation": ["error"], + "eqeqeq": ["error"], + "guard-for-in": ["off"], + "import/export": "error", + "import/named": ["off"], + "import/namespace": ["off"], + "import/no-duplicates": ["error"], + "import/no-named-as-default": ["error"], + "import/no-unresolved": ["off"], + "new-cap": ["error", { + "capIsNewExceptionPattern": "Immutable\\.*" + }], + "no-alert": ["off"], + "no-caller": ["error"], + "no-case-declarations": ["error"], + "no-console": ["error"], + "no-div-regex": ["error"], + "no-dupe-keys": ["error"], + "no-else-return": ["error"], + "no-empty-pattern": ["error"], + "no-eq-null": ["error"], + "no-eval": ["error"], + "no-extend-native": ["error"], + "no-extra-bind": ["error"], + "no-extra-boolean-cast": ["error"], + "no-inline-comments": ["off"], + "no-implicit-coercion": ["error"], + "no-implied-eval": ["error"], + "no-inner-declarations": ["off"], + "no-invalid-this": ["error"], + "no-iterator": ["error"], + "no-labels": ["error"], + "no-lone-blocks": ["error"], + "no-loop-func": ["error"], + "no-multi-str": ["error"], + "no-native-reassign": ["error"], + "no-new": ["error"], + "no-new-func": ["error"], + "no-new-wrappers": ["error"], + "no-param-reassign": ["off"], + "no-process-env": ["warn"], + "no-proto": ["error"], + "no-redeclare": ["error"], + "no-return-assign": ["error"], + "no-script-url": ["error"], + "no-self-compare": ["error"], + "no-sequences": ["error"], + "no-shadow": ["off"], + "no-throw-literal": ["error"], + "no-unused-expressions": ["error"], + "no-use-before-define": ["error", "nofunc"], + "no-useless-call": ["error"], + "no-useless-concat": ["error"], + "no-with": ["error"], + "prefer-const": ["error"], + "radix": ["error"], + "react/jsx-no-duplicate-props": ["error"], + "react/jsx-no-undef": ["error"], + "react/jsx-uses-react": ["error"], + "react/jsx-uses-vars": ["error"], + "react/no-did-update-set-state": ["error"], + "react/no-direct-mutation-state": ["error"], + "react/no-is-mounted": ["error"], + "react/no-unknown-property": ["error"], + "react/prefer-es6-class": ["error", "always"], + "react/prop-types": "error", + "valid-jsdoc": ["off"], + "yoda": ["error"], + "spaced-comment": ["error", "always", { + "block": { + "exceptions": ["*"] + } + }], + "no-unused-vars": ["error", { + "args": "after-used", + "argsIgnorePattern": "^_", + "caughtErrorsIgnorePattern": "^e$" + }], + "no-magic-numbers": ["error", { + "ignoreArrayIndexes": true, + "ignore": [-1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 100, 10, 16, 0.5, 25] + }], + "no-underscore-dangle": ["off"], + "no-useless-escape": ["off"] + } +} diff --git a/.github/CODEOWNERS b/.github/CODEOWNERS index 2993a2c4..cb0b7be0 100644 --- a/.github/CODEOWNERS +++ b/.github/CODEOWNERS @@ -1,3 +1,3 @@ # These owners will be the default owners for everything in # the repo. Unless a later match takes precedence -@alexcjohnson @Marc-Andre-Rivet @rpkyle \ No newline at end of file +* @HammadTheOne diff --git a/.gitignore b/.gitignore index 3f2b95ac..2e2e58fc 100644 --- a/.gitignore +++ b/.gitignore @@ -3,8 +3,14 @@ .RData .DS_Store +gulp-assets/dash-core-components/ +gulp-assets/dash-html-components/ +gulp-assets/dash-bootstrap-components/ +gulp-assets/dash-table/ +gulp-assets/dash/ node_modules/ python/ +__pycache__/ todo.txt r-finance* build/ diff --git a/.prettierrc b/.prettierrc new file mode 100644 index 00000000..eb81a49a --- /dev/null +++ b/.prettierrc @@ -0,0 +1,6 @@ +{ + "tabWidth": 4, + "singleQuote": true, + "bracketSpacing": false, + "trailingComma": "es5" +} diff --git a/CHANGELOG.md b/CHANGELOG.md index 4df6056f..f4102f2f 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -2,6 +2,42 @@ All notable changes to `dash` will be documented in this file. This project adheres to [Semantic Versioning](http://semver.org/). +## [0.9.3] - 2021-11-17 + +- Minor release to update and match the semantic versioning spec with the CRAN release of DashR. + +## [0.9.2] - 2021-10-31 + +### Changed +- Removed source-mapping from the `master` branch on Github and CRAN release of Dash R. Source-mapping is still available in the `dev` branch for contributors. [#282](https://github.com/plotly/dashR/pull/282) + +## [0.9.1] - 2021-10-13 +### Added +- Dash layout wrapper functions are included, which simplify the layout syntax for writing Dash apps. This includes the ability to pipe in the `app` object to layout and meta functions, as well as tags which simplify `html` component arguments and children. [#265](https://github.com/plotly/dashR/pull/265) + +- Added simplified and flexible callbacks with the `add_callback` helper function. Included in this change are multiple additional helper functions to simplify Dash app configuration and tag usage. [#270](https://github.com/plotly/dashR/pull/270) + +### Changed +- Unified the core Dash packages (dash, dashCoreComponents, dashHtmlComponents, dashTable) for streamlined maintenance and accessibility. The namespaces of these packages will be combined under the `dash` namespace, and all artifacts from the ancillary dash packages will be included with Dash for R. [#243](https://github.com/plotly/dashr/pull/243) +- Removed source-mapping from the `master` branch on Github and CRAN release of Dash R. Source-mapping is still available in the `dev` branch for contributors. [#282](https://github.com/plotly/dashR/pull/282) + +### Fixed +- Minor fix for favicon issue continued from [#240](https://github.com/plotly/dashr/pull/240) (for more details, see [#243](https://github.com/plotly/dashR/pull/243#issuecomment-842813526)). +- Minor fix to enable `suppress_callback_exceptions` configuration option when creating a Dash app. [#268](https://github.com/plotly/dashr/pull/268) + +- A regression which prevented favicons from displaying properly has been resolved, and a default Dash favicon is now supplied when none is provided in the `assets` directory. [#240](https://github.com/plotly/dashr/pull/240) + +## [0.9.0] - 2020-10-31 +### Fixed +- Fixes a minor bug in `setCallbackContext` (described in [#236](https://github.com/plotly/dashR/issues/236)) which prevented pattern-matching callbacks from working properly if one or more `input` statements did not include a selector. [#237](https://github.com/plotly/dashR/pull/237) + +### Changed + +- Dash for R now depends on v1.1.1 of `dashHtmlComponents` +- Dash for R now depends on v1.13.0 of `dashCoreComponents` +- Dash for R now depends on v4.11.0 of `dashTable` +- `dash-renderer` version is now v1.8.3 + ## [0.8.0] - 2020-10-27 ### Fixed - Usage of `glue` has been corrected to address [#232](https://github.com/plotly/dashR/issues/232) via [#233](https://github.com/plotly/dashR/pull/233). diff --git a/CODE_OF_CONDUCT.md b/CODE_OF_CONDUCT.md new file mode 100644 index 00000000..bc837152 --- /dev/null +++ b/CODE_OF_CONDUCT.md @@ -0,0 +1,43 @@ +# Contributor Covenant Code of Conduct + +## Our Pledge + +In the interest of fostering an open and welcoming environment, we as contributors and maintainers pledge to making participation in our project and our community a harassment-free experience for everyone, regardless of age, body size, disability, ethnicity, gender identity and expression, level of experience, nationality, personal appearance, race, religion, or sexual identity and orientation. + +## Our Standards + +Examples of behavior that contributes to creating a positive environment include: + +* Using welcoming and inclusive language +* Being respectful of differing viewpoints and experiences +* Gracefully accepting constructive criticism +* Focusing on what is best for the community +* Showing empathy towards other community members + +Examples of unacceptable behavior by participants include: + +* The use of sexualized language or imagery and unwelcome sexual attention or advances +* Trolling, insulting/derogatory comments, and personal or political attacks +* Public or private harassment +* Publishing others' private information, such as a physical or electronic address, without explicit permission +* Other conduct which could reasonably be considered inappropriate in a professional setting + +## Our Responsibilities + +Project maintainers are responsible for clarifying the standards of acceptable behavior and are expected to take appropriate and fair corrective action in response to any instances of unacceptable behavior. + +Project maintainers have the right and responsibility to remove, edit, or reject comments, commits, code, wiki edits, issues, and other contributions that are not aligned to this Code of Conduct, or to ban temporarily or permanently any contributor for other behaviors that they deem inappropriate, threatening, offensive, or harmful. + +## Scope + +This Code of Conduct applies both within project spaces and in public spaces when an individual is representing the project or its community. Examples of representing a project or community include using an official project e-mail address, posting via an official social media account, or acting as an appointed representative at an online or offline event. Representation of a project may be further defined and clarified by project maintainers. + +## Enforcement + +Instances of abusive, harassing, or otherwise unacceptable behavior may be reported by contacting the project team at accounts@plot.ly. All complaints will be reviewed and investigated and will result in a response that is deemed necessary and appropriate to the circumstances. The project team is obligated to maintain confidentiality with regard to the reporter of an incident. Further details of specific enforcement policies may be posted separately. + +Project maintainers who do not follow or enforce the Code of Conduct in good faith may face temporary or permanent repercussions as determined by other members of the project's leadership. + +## Attribution + +This Code of Conduct is adapted from the [Contributor Covenant](http://contributor-covenant.org), version 1.4, available at [http://contributor-covenant.org/version/1/4](http://contributor-covenant.org/version/1/4/), and may also be found online at . diff --git a/DESCRIPTION b/DESCRIPTION index 7c32031c..1bd8e770 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,14 +1,11 @@ Package: dash Title: An Interface to the Dash Ecosystem for Authoring Reactive Web Applications -Version: 0.8.0 -Authors@R: c(person("Chris", "Parmer", role = c("aut"), email = "chris@plotly.com"), person("Ryan Patrick", "Kyle", role = c("aut", "cre"), comment = c(ORCID = "0000-0001-5829-9867"), email = "ryan@plotly.com"), person("Carson", "Sievert", role = c("aut"), comment = c(ORCID = "0000-0002-4958-2844")), person("Hammad", "Khan", role = c("aut"), comment = c(ORCID = "0000-0003-2479-9841"), email = "hammadkhan@plotly.com"), person(family = "Plotly Technologies", role = "cph")) +Version: 0.9.3 +Authors@R: c(person("Chris", "Parmer", role = c("aut"), email = "chris@plotly.com"), person("Ryan Patrick", "Kyle", role = c("aut"), comment = c(ORCID = "0000-0001-5829-9867"), email = "ryan@plotly.com"), person("Carson", "Sievert", role = c("aut"), comment = c(ORCID = "0000-0002-4958-2844")), person("Hammad", "Khan", role = c("aut", "cre"), comment = c(ORCID = "0000-0003-2479-9841"), email = "hammadkhan@plotly.com"), person(family = "Plotly Technologies", role = "cph")) Description: A framework for building analytical web applications, Dash offers a pleasant and productive development experience. No JavaScript required. Depends: R (>= 3.0.2) Imports: - dashHtmlComponents (== 1.0.3), - dashCoreComponents (== 1.10.2), - dashTable (== 4.9.0), R6, fiery (> 1.0.0), routr (> 0.2.0), @@ -22,20 +19,14 @@ Imports: mime, crayon, brotli, - glue + glue, + magrittr, + methods, + rlang, + utils Suggests: - testthat -Collate: - 'utils.R' - 'dependencies.R' - 'dash-package.R' - 'dash.R' - 'imports.R' - 'print.R' - 'internal.R' -Remotes: plotly/dash-html-components@e63acfa, - plotly/dash-core-components@0770afb, - plotly/dash-table@75ac3d9 + testthat (>= 3.0.0), + rstudioapi License: MIT + file LICENSE Encoding: UTF-8 LazyData: true diff --git a/LICENSE b/LICENSE index f8dd2456..2c4d2c31 100644 --- a/LICENSE +++ b/LICENSE @@ -1,6 +1,6 @@ MIT License -Copyright (c) 2019 Plotly +Copyright (c) 2015-2024 Plotly Technologies Inc. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal @@ -9,13 +9,13 @@ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: -The above copyright notice and this permission notice shall be included in all -copies or substantial portions of the Software. +The above copyright notice and this permission notice shall be included in +all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE -SOFTWARE. +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +THE SOFTWARE. diff --git a/NAMESPACE b/NAMESPACE index c347d660..8ef0db4e 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -1,17 +1,135 @@ # Generated by roxygen2: do not edit by hand +S3method(print,Dash) S3method(print,dash_component) +export("%>%") export(ALL) export(ALLSMALLER) export(Dash) export(MATCH) +export(a) +export(add_callback) +export(add_meta) +export(add_script) +export(add_stylesheet) +export(br) +export(button) +export(callback_context) export(clientsideFunction) +export(dashDataTable) export(dashNoUpdate) +export(dash_app) +export(dash_tag) +export(dbcAccordion) +export(dbcAccordionItem) +export(dbcAlert) +export(dbcBadge) +export(dbcBreadcrumb) +export(dbcButton) +export(dbcButtonGroup) +export(dbcCard) +export(dbcCardBody) +export(dbcCardFooter) +export(dbcCardGroup) +export(dbcCardHeader) +export(dbcCardImg) +export(dbcCardImgOverlay) +export(dbcCardLink) +export(dbcCarousel) +export(dbcCheckbox) +export(dbcChecklist) +export(dbcCol) +export(dbcCollapse) +export(dbcContainer) +export(dbcDropdownMenu) +export(dbcDropdownMenuItem) +export(dbcFade) +export(dbcForm) +export(dbcFormFeedback) +export(dbcFormFloating) +export(dbcFormText) +export(dbcIcons) +export(dbcInput) +export(dbcInputGroup) +export(dbcInputGroupText) +export(dbcLabel) +export(dbcListGroup) +export(dbcListGroupItem) +export(dbcModal) +export(dbcModalBody) +export(dbcModalFooter) +export(dbcModalHeader) +export(dbcModalTitle) +export(dbcNav) +export(dbcNavItem) +export(dbcNavLink) +export(dbcNavbar) +export(dbcNavbarBrand) +export(dbcNavbarSimple) +export(dbcNavbarToggler) +export(dbcOffcanvas) +export(dbcPagination) +export(dbcPopover) +export(dbcPopoverBody) +export(dbcPopoverHeader) +export(dbcProgress) +export(dbcRadioButton) +export(dbcRadioItems) +export(dbcRow) +export(dbcSelect) +export(dbcSpinner) +export(dbcSwitch) +export(dbcTab) +export(dbcTable) +export(dbcTabs) +export(dbcTextarea) +export(dbcThemes) +export(dbcToast) +export(dbcTooltip) +export(dccChecklist) +export(dccClipboard) +export(dccConfirmDialog) +export(dccConfirmDialogProvider) +export(dccDatePickerRange) +export(dccDatePickerSingle) +export(dccDownload) +export(dccDropdown) +export(dccGraph) +export(dccInput) +export(dccInterval) +export(dccLink) +export(dccLoading) +export(dccLocation) +export(dccLogoutButton) +export(dccMarkdown) +export(dccRadioItems) +export(dccRangeSlider) +export(dccSlider) +export(dccStore) +export(dccTab) +export(dccTabs) +export(dccTextarea) +export(dccTooltip) +export(dccUpload) +export(df_to_list) +export(div) +export(h1) +export(h2) +export(h3) +export(h4) +export(html) +export(img) export(input) +export(install_snippet) export(output) +export(p) +export(prevent_update) +export(run_app) +export(set_layout) +export(simple_table) +export(span) export(state) -import(dashCoreComponents) -import(dashHtmlComponents) +export(strong) importFrom(R6,R6Class) importFrom(assertthat,assert_that) importFrom(base64enc,base64encode) @@ -27,6 +145,7 @@ importFrom(htmltools,htmlDependencies) importFrom(htmltools,htmlDependency) importFrom(htmltools,renderDependencies) importFrom(jsonlite,toJSON) +importFrom(magrittr,"%>%") importFrom(reqres,default_parsers) importFrom(routr,Route) importFrom(routr,RouteStack) @@ -34,3 +153,4 @@ importFrom(routr,ressource_route) importFrom(stats,setNames) importFrom(tools,file_ext) importFrom(utils,getFromNamespace) +importFrom(utils,tail) diff --git a/R/all_tags.R b/R/all_tags.R new file mode 100644 index 00000000..9878fa05 --- /dev/null +++ b/R/all_tags.R @@ -0,0 +1,129 @@ +## Generated by `scripts/generate_tags.R`; do not edit by hand +all_tags <- c( + "a", + "abbr", + "acronym", + "address", + "area", + "article", + "aside", + "audio", + "b", + "base", + "basefont", + "bdi", + "bdo", + "big", + "blink", + "blockquote", + "br", + "button", + "canvas", + "caption", + "center", + "cite", + "code", + "col", + "colgroup", + "content", + "data", + "datalist", + "dd", + "del", + "details", + "dfn", + "dialog", + "div", + "dl", + "dt", + "em", + "embed", + "fieldset", + "figcaption", + "figure", + "font", + "footer", + "form", + "frame", + "frameset", + "h1", + "h2", + "h3", + "h4", + "h5", + "h6", + "header", + "hgroup", + "hr", + "i", + "iframe", + "img", + "ins", + "kbd", + "keygen", + "label", + "legend", + "li", + "link", + "main", + "map", + "mark", + "marquee", + "meta", + "meter", + "nav", + "nobr", + "noscript", + "object", + "ol", + "optgroup", + "option", + "output", + "p", + "param", + "picture", + "plaintext", + "pre", + "progress", + "q", + "rb", + "rp", + "rt", + "rtc", + "ruby", + "s", + "samp", + "script", + "section", + "select", + "shadow", + "slot", + "small", + "source", + "spacer", + "span", + "strike", + "strong", + "sub", + "summary", + "sup", + "table", + "tbody", + "td", + "template", + "textarea", + "tfoot", + "th", + "thead", + "time", + "title", + "tr", + "track", + "u", + "ul", + "var", + "video", + "wbr", + "xmp" +) +names(all_tags) <- all_tags diff --git a/R/callbacks-advanced.R b/R/callbacks-advanced.R new file mode 100644 index 00000000..e36b1bf2 --- /dev/null +++ b/R/callbacks-advanced.R @@ -0,0 +1,212 @@ +#' Add a callback to a Dash app +#' +#' @param app A dash application created with [`dash_app()`]. +#' @param outputs Unnamed list. The `output` argument provides the component `id` +#' and `property` which will be updated by the callback; a callback can +#' target one or more outputs (i.e. multiple outputs). +#' @param params Unnamed list; provides [input] and [state] statements, each +#' with its own defined `id` and `property`. For pattern-matching callbacks, +#' the `id` field of a component is written in JSON-like syntax and provides +#' fields that are arbitrary keys which describe the targets of the callback. +#' See \link{selectors} for more details. +#' @param callback Function; must return [output] provided [input] or [state] +#' arguments. `callback` may be any valid R function, or a character string +#' containing valid JavaScript, or a call to [clientsideFunction], +#' including `namespace` and `function_name` arguments for a locally served +#' JavaScript function. +#' @export +add_callback <- function(app, outputs, params, callback) { + if (inherits(params, "dash_dependency")) { + params <- list(params) + } + + params_flat <- flatten(params) + + # determine if the callback arguments match the first level of parameters + cb_args <- methods::formalArgs(callback) + if (length(cb_args) != length(params)) { + stop("add_callback: Number of params does not match the number of arguments in the callback function", call. = FALSE) + } + if (!is.null(names(params))) { + if (!setequal(cb_args, names(params))) { + stop("add_callback: Arguments in callback do not match the names of the params", + call. = FALSE) + } + } + + cb <- function(...) { + callback_params <- eval(substitute(alist(...))) + + # the callback moves states to the end after inputs, so we need to fix the positions + state_idx <- which(unlist(lapply(params_flat, function(x) inherits(x, "state")))) + num_states <- length(state_idx) + if (num_states > 0) { + num_inputs <- length(callback_params) - num_states + for (i in seq_len(num_states)) { + idx <- num_inputs + i + callback_params <- append(callback_params, list(callback_params[[idx]]), state_idx[i] - 1) + callback_params <- callback_params[-(idx + 1)] + } + } + + callback_params <- params_to_keys(callback_params, params) + do.call(callback, callback_params) + } + + app$callback( + output = outputs, + params = params_flat, + func = cb + ) + invisible(app) +} + +# test <- list( +# ab = list( +# input("a", "value"), +# state("b", "value") +# ), +# cdef = list( +# cde = list( +# input("c", "value"), +# state("d", "value"), +# input("e", "value") +# ), +# f = input("f", "value") +# ), +# g = input("g", "value") +# ) +# str(flatten(test)) +flatten <- function(x) { + if (!inherits(x, "list")) return(list(x)) + + key_names <- rlang::names2(x) + key_names_exist <- nzchar(key_names) + if (all(key_names_exist)) { + if (any(duplicated(key_names))) { + stop("Named params must have unique names", call. = FALSE) + } + x <- unname(x) + } else if (any(key_names_exist)) { + stop("Cannot mix named and unnamed params", call. = FALSE) + } + + unlist(lapply(x, flatten), recursive = FALSE) +} + +# test <- list( +# ab = list( +# input("a", "value"), +# state("b", "value") +# ), +# cdef = list( +# cde = list( +# input("c", "value"), +# state("d", "value"), +# input("e", "value") +# ), +# f = input("f", "value") +# ), +# g = input("g", "value") +# ) +# str(params_to_keys(as.list(LETTERS[1:7]), test)) +# str(params_to_keys(c(as.list(LETTERS[1:6]), list(NULL)), test)) +params_to_keys <- function(params, keys) { + params_to_key_helper <- function(keys) { + for (item_idx in seq_along(keys)) { + if (inherits(keys[[item_idx]], "dash_dependency")) { + if (is.null(params[[1]])) { + keys[item_idx] <- list(NULL) + } else { + keys[[item_idx]] <- params[[1]] + } + params <<- params[-1] + } else { + keys[[item_idx]] <- params_to_key_helper(keys[[item_idx]]) + } + } + keys + } + params_to_key_helper(keys) +} + +#' In addition to event properties like n_clicks that change whenever an event +#' happens there is a global variable dash$callback_context, available only +#' inside a callback. It has properties: +#' +#' `triggered`: list of changed properties. This will be empty on initial load, +#' unless an input prop got its value from another initial callback. After a user +#' action it is a length-1 list, unless two properties of a single component +#' update simultaneously, such as a value and a timestamp or event counter. +#' +#' `inputs` and `states`: allow you to access the callback params by id and prop +#' instead of through the function arguments. +#' +#' @examples +#' if (interactive()) { +#' dash_app() %>% +#' set_layout( +#' button('Button 1', id='btn1'), +#' button('Button 2', id='btn2'), +#' button('Button 3', id='btn3'), +#' div(id='container') +#' ) %>% +#' add_callback( +#' output("container", "children"), +#' list( +#' input("btn1", "n_clicks"), +#' input("btn2", "n_clicks"), +#' input("btn3", "n_clicks") +#' ), +#' function(btn1, btn2, btn3) { +#' ctx <- callback_context() +#' prevent_update(is.null(ctx)) +#' sprintf("Triggered: %s, btn1: %s, btn2: %s, btn3: %s", +#' ctx$triggered$prop_id, btn1, btn2, btn3) +#' } +#' ) %>% +#' run_app() +#' } +#' @export +callback_context <- function() { + get("app", envir = parent.frame(2))$callback_context() +} + +#' Prevent a callback from updating its output +#' +#' When used inside Dash callbacks, if any of the arguments evaluate to `TRUE`, +#' then the callback's outputs do not update. +#' +#' @param ... Values to check +#' @examples +#' if (interactive()) { +#' app <- dash_app() +#' +#' app %>% set_layout( +#' button('Click here', id = 'btn'), +#' p('The number of times the button was clicked does not +#' update when the number is divisible by 5'), +#' div(id = 'body-div') +#' ) +#' app %>% add_callback( +#' output(id='body-div', property='children'), +#' list( +#' input(id='btn', property='n_clicks') +#' ), +#' function(n_clicks) { +#' prevent_update(is.null(n_clicks[[1]]), n_clicks[[1]] %% 5 == 0) +#' paste(n_clicks[[1]], "clicks") +#' } +#' ) +#' +#' app %>% run_app() +#' } +#' @export +prevent_update <- function(...) { + checks <- unlist(list(...)) + if (any(checks)) { + rlang::eval_bare(rlang::expr(invisible(return(structure(list(NULL), class = "no_update")))) , env = parent.frame()) + } else { + return() + } +} diff --git a/R/dash.R b/R/dash.R index bca7936c..d9d0f21c 100644 --- a/R/dash.R +++ b/R/dash.R @@ -50,7 +50,7 @@ Dash <- R6::R6Class( #' as `integrity` and `crossorigin`. #' @param external_stylesheets List. An optional list of valid URLs from which #' to serve CSS for rendered pages. Each entry can be a string (the URL) or a list - #' with `href` (the URL) and optionally other `` tag attributes such as + #' with `href` (the URL) and optionally other `` tag attributes such as #' `rel`, `integrity` and `crossorigin`. #' @param compress Logical. Whether to try to compress files and data served by Fiery. #' By default, `brotli` is attempted first, then `gzip`, then the `deflate` algorithm, @@ -107,6 +107,7 @@ Dash <- R6::R6Class( self$config$external_stylesheets <- external_stylesheets self$config$show_undo_redo <- show_undo_redo self$config$update_title <- update_title + self$config$suppress_callback_exceptions <- suppress_callback_exceptions # ensure attributes are valid, if using a list within a list, elements are all named assertValidExternals(scripts = external_scripts, stylesheets = external_stylesheets) @@ -116,7 +117,7 @@ Dash <- R6::R6Class( # ------------------------------------------------------------ router <- routr::RouteStack$new() server$set_data("user-routes", list()) # placeholder for custom routes - + # ensure that assets_folder is neither NULL nor character(0) if (!(is.null(private$assets_folder)) & length(private$assets_folder) != 0) { if (!(dir.exists(private$assets_folder)) && gsub("/+", "", assets_folder) != "assets") { @@ -374,7 +375,6 @@ Dash <- R6::R6Class( keys$package_name, clean_dependencies(dep_list) ) - # return warning if a dependency goes unmatched, since the page # will probably fail to render properly anyway without it if (length(dep_pkg$rpkg_path) == 0) { @@ -494,13 +494,17 @@ Dash <- R6::R6Class( } TRUE }) - dash_favicon <- paste0(self$config$routes_pathname_prefix, "_favicon.ico") route$add_handler("get", dash_favicon, function(request, response, keys, ...) { asset_path <- get_asset_path(private$asset_map, "/favicon.ico") + # If custom favicon is not present, get the path for the default Dash favicon + if (is.na(names(asset_path)) || is.null(asset_path)) { + asset_path <- setNames(system.file("extdata", "favicon.ico", package = "dash"), c("/favicon.ico")) + } + file_handle <- file(asset_path, "rb") response$body <- readBin(file_handle, raw(), @@ -618,9 +622,9 @@ Dash <- R6::R6Class( #' library(dash) #' app <- Dash$new() #' - #' # A handler to redirect requests with `307` status code (temporary redirects); + #' # A handler to redirect requests with `307` status code (temporary redirects); #' # for permanent redirects (`301`), see the `redirect` method described below - #' # + #' # #' # A simple single path-to-path redirect #' app$server_route('/getting-started', function(request, response, keys, ...) { #' response$status <- 307L @@ -653,11 +657,11 @@ Dash <- R6::R6Class( "methods" = methods) self$server$set_data("user-routes", user_routes) - }, + }, #' @description #' Redirect a Dash application URL path - #' @details + #' @details #' This is a convenience method to simplify adding redirects #' for your Dash application which automatically return a `301` #' HTTP status code and direct the client to load an alternate URL. @@ -705,7 +709,7 @@ Dash <- R6::R6Class( TRUE } } - + self$server_route(old_path, handler) }, @@ -714,13 +718,13 @@ Dash <- R6::R6Class( # ------------------------------------------------------------------------ #' @description #' Retrieves the Dash application layout. - #' @details + #' @details #' If render is `TRUE`, and the layout is a function, #' the result of the function (rather than the function itself) is returned. #' @param render Logical. If the layout is a function, should the function be #' executed to return the layout? If `FALSE`, the function is returned as-is. - #' @return List or function, depending on the value of `render` (see above). - #' When returning an object of class `dash_component`, the default `print` + #' @return List or function, depending on the value of `render` (see above). + #' When returning an object of class `dash_component`, the default `print` #' method for this class will display the corresponding pretty-printed JSON #' representation of the object to the console. layout_get = function(render = TRUE) { @@ -739,7 +743,7 @@ Dash <- R6::R6Class( #' class. #' @param value An object of the `dash_component` class, which provides #' a component or collection of components, specified either as a Dash - #' component or a function that returns a Dash component. + #' component or a function that returns a Dash component. layout = function(value) { # private$layout_ <- if (is.function(..1)) ..1 else list(...) private$layout_ <- value @@ -769,14 +773,14 @@ Dash <- R6::R6Class( #' @description #' Define a Dash callback. #' @details - #' Describes a server or clientside callback relating the values of one or more + #' Describes a server or clientside callback relating the values of one or more #' `output` items to one or more `input` items which will trigger the callback - #' when they change, and optionally `state` items which provide additional + #' when they change, and optionally `state` items which provide additional #' information but do not trigger the callback directly. #' #' For detailed examples of how to use pattern-matching callbacks, see the #' entry for \link{selectors} or visit our interactive online - #' documentation at \url{https://dashr.plotly.com}. + #' documentation at \url{https://dash.plotly.com/r/}. #' #' The `output` argument defines which layout component property should #' receive the results (via the [output] object). The events that @@ -784,13 +788,13 @@ Dash <- R6::R6Class( #' object(s) (which should reference layout components), which become #' argument values for R callback handlers defined in `func`. #' - #' Here `func` may either be an anonymous R function, a JavaScript function + #' Here `func` may either be an anonymous R function, a JavaScript function #' provided as a character string, or a call to `clientsideFunction()`, which #' describes a locally served JavaScript function instead. The latter #' two methods define a "clientside callback", which updates components #' without passing data to and from the Dash backend. The latter may offer #' improved performance relative to callbacks written purely in R. - #' @param output Named list. The `output` argument provides the component `id` + #' @param output Named list. The `output` argument provides the component `id` #' and `property` which will be updated by the callback; a callback can #' target one or more outputs (i.e. multiple outputs). #' @param params Unnamed list; provides [input] and [state] statements, each @@ -852,12 +856,12 @@ Dash <- R6::R6Class( #' the firing of a given callback, and allows introspection of the input/state #' values given their names. It is only available from within a callback; #' attempting to use this method outside of a callback will result in a warning. - #' + #' #' The `callback_context` method returns a list containing three elements: #' `states`, `triggered`, `inputs`. The first and last of these correspond to #' the values of `states` and `inputs` for the current invocation of the #' callback, and `triggered` provides a list of changed properties. - #' + #' #' @return List comprising elements `states`, `triggered`, `inputs`. callback_context = function() { if (is.null(private$callback_context_)) { @@ -877,14 +881,14 @@ Dash <- R6::R6Class( #' duration required to execute a given callback. It may only be called #' from within a callback; a warning will be thrown and the method will #' otherwise return `NULL` if invoked outside of a callback. - #' + #' #' @param name Character. The name of the resource. #' @param duration Numeric. The time in seconds to report. Internally, this is #' rounded to the nearest millisecond. #' @param description Character. A description of the resource. #' callback_context.record_timing = function(name, - duration=NULL, + duration=NULL, description=NULL) { if (is.null(private$callback_context_)) { warning("callback_context is undefined; callback_context.record_timing may only be accessed within a callback.") @@ -897,7 +901,7 @@ Dash <- R6::R6Class( stop(paste0("Duplicate resource name ", name, " found."), call.=FALSE) } - timing_information[[name]] <- list("dur" = round(duration * 1000), + timing_information[[name]] <- list("dur" = round(duration * 1000), "desc" = description) self$server$set_data("timing-information", timing_information) @@ -906,9 +910,9 @@ Dash <- R6::R6Class( # ------------------------------------------------------------------------ # return asset URLs # ------------------------------------------------------------------------ - #' @description + #' @description #' Return a URL for a Dash asset. - #' @details + #' @details #' The `get_asset_url` method permits retrieval of an asset's URL given its filename. #' For example, `app$get_asset_url('style.css')` should return `/assets/style.css` when #' `assets_folder = 'assets'`. By default, the prefix is the value of `requests_pathname_prefix`, @@ -973,7 +977,7 @@ Dash <- R6::R6Class( #' in components such as `dccLink` or `dccLocation`. For example, `app$get_relative_url("/page/")` #' would return `/app/page/` for an app running on a deployment server. The path must be prefixed with #' a `/`. - #' @param path Character. A path string prefixed with a leading `/` which directs + #' @param path Character. A path string prefixed with a leading `/` which directs #' at a path or asset directory. #' @param requests_pathname_prefix Character. The pathname prefix for the application when #' deployed. Defaults to the environment variable set by the server, @@ -984,12 +988,12 @@ Dash <- R6::R6Class( asset = get_relative_path(requests_pathname = requests_pathname_prefix, path = path) return(asset) }, - - + + # ------------------------------------------------------------------------ # return relative asset URLs # ------------------------------------------------------------------------ - + #' @description #' Return a Dash asset path without its prefix. #' @details @@ -998,7 +1002,7 @@ Dash <- R6::R6Class( #' method, by taking a `relative path` as an input, and returning the `path` stripped of the `requests_pathname_prefix`, #' and any leading or trailing `/`. For example, a path string `/app/homepage/`, would be returned as #' `homepage`. This is particularly useful for `dccLocation` URL routing. - #' @param path Character. A path string prefixed with a leading `/` which directs + #' @param path Character. A path string prefixed with a leading `/` which directs #' at a path or asset directory. #' @param requests_pathname_prefix Character. The pathname prefix for the app on #' a deployed application. Defaults to the environment variable set by the server, @@ -1014,7 +1018,7 @@ Dash <- R6::R6Class( #' Specify a custom index string for a Dash application. #' @details #' The `index_string` method allows the specification of a custom index by changing - #' the default `HTML` template that is generated by the Dash UI. #' Meta tags, CSS, and JavaScript are some examples of features + #' the default `HTML` template that is generated by the Dash UI. #' Meta tags, CSS, and JavaScript are some examples of features #' that can be modified. This method will present a warning if your #' HTML template is missing any necessary elements #' and return an error if a valid index is not defined. The following interpolation keys are @@ -1054,11 +1058,11 @@ Dash <- R6::R6Class( assertthat::assert_that(is.character(string)) private$custom_index <- validate_keys(string, is_template=TRUE) }, - + # ------------------------------------------------------------------------ - # modify the templated variables by using the `interpolate_index` method. + # modify the templated variables by using the `interpolate_index` method. # ------------------------------------------------------------------------ - #' @description + #' @description #' Modify index template variables for a Dash application. #' @details #' With the `interpolate_index` method, one can pass a custom index with template string @@ -1087,14 +1091,14 @@ Dash <- R6::R6Class( #' #' #' " - #' + #' #' # this is the default configuration, but custom configurations #' # are possible -- the structure of the "config" argument is #' # a list, in which each element is a JSON key/value pair, when #' # reformatted as JSON from the list: #' # e.g. {"routes_pathname_prefix":"/", "ui":false} - #' config <- sprintf("", + #' config <- sprintf("", #' jsonlite::toJSON(app$config, auto_unbox=TRUE)) #' #' app$interpolate_index( @@ -1107,17 +1111,17 @@ Dash <- R6::R6Class( assertthat::assert_that(is.character(template_index)) template <- template_index kwargs <- list(...) - + for (name in names(kwargs)) { key = paste0('\\{\\%', name, '\\%\\}') template = sub(key, kwargs[[name]], template) - } - + } + invisible(validate_keys(names(kwargs), is_template=FALSE)) - + private$template_index <- template }, - + # ------------------------------------------------------------------------ # specify a custom title # ------------------------------------------------------------------------ @@ -1130,7 +1134,7 @@ Dash <- R6::R6Class( assertthat::assert_that(is.character(string)) private$name <- string }, - + # ------------------------------------------------------------------------ # convenient fiery wrappers # ------------------------------------------------------------------------ @@ -1145,7 +1149,7 @@ Dash <- R6::R6Class( #' @param block Logical. Start the server while blocking console input? Default is `TRUE`. #' @param showcase Logical. Load the Dash application into the default web browser when server starts? Default is `FALSE`. #' @param use_viewer Logical. Load the Dash application into RStudio's viewer pane? Requires that `host` is either `127.0.0.1` or `localhost`, and that Dash application is started within RStudio; if `use_viewer = TRUE` and these conditions are not satisfied, the user is warned and the app opens in the default browser instead. Default is `FALSE`. - #' @param debug Logical. Enable/disable all the Dash developer tools (and the within-browser user interface for the callback graph visualizer and stack traces) unless overridden by the arguments or environment variables. Default is `FALSE` when called via `run_server`. For more information, please visit \url{https://dashr.plotly.com/devtools}. Environment variable: `DASH_DEBUG`. + #' @param debug Logical. Enable/disable all the Dash developer tools (and the within-browser user interface for the callback graph visualizer and stack traces) unless overridden by the arguments or environment variables. Default is `FALSE` when called via `run_server`. For more information, please visit \url{https://dash.plotly.com/r/devtools}. Environment variable: `DASH_DEBUG`. #' @param dev_tools_ui Logical. Show Dash's developer tools UI? Default is `TRUE` if `debug == TRUE`, `FALSE` otherwise. Environment variable: `DASH_UI`. #' @param dev_tools_hot_reload Logical. Activate hot reloading when app, assets, and component files change? Default is `TRUE` if `debug == TRUE`, `FALSE` otherwise. Requires that the Dash application is loaded using `source()`, so that `srcref` attributes are available for executed code. Environment variable: `DASH_HOT_RELOAD`. #' @param dev_tools_hot_reload_interval Numeric. Interval in seconds for the client to request the reload hash. Default is `3`. Environment variable: `DASH_HOT_RELOAD_INTERVAL`. @@ -1155,10 +1159,8 @@ Dash <- R6::R6Class( #' @param dev_tools_prune_errors Logical. Reduce tracebacks such that only lines relevant to user code remain, stripping out Fiery and Dash references? Only available with debugging. `TRUE` by default, set to `FALSE` to see the complete traceback. Environment variable: `DASH_PRUNE_ERRORS`. #' @param dev_tools_silence_routes_logging Logical. Replace Fiery's default logger with `dashLogger` instead (will remove all routes logging)? Enabled with debugging by default because hot reload hash checks generate a lot of requests. #' @param ... Additional arguments to pass to the `start` handler; see the [fiery] documentation for relevant examples. - #' @examples - #' if (interactive() && require(dash)) { - #' library(dashCoreComponents) - #' library(dashHtmlComponents) + #' @examples + #' if (interactive() ) { #' library(dash) #' #' app <- Dash$new() @@ -1232,7 +1234,7 @@ Dash <- R6::R6Class( # attach user-defined routes, if they exist if (length(self$server$get_data("user-routes")) > 0) { - + plugin <- list( on_attach = function(server) { user_routes <- server$get_data("user-routes") @@ -1243,26 +1245,26 @@ Dash <- R6::R6Class( # have all the relevant routes in place anyhow if (server$plugins$request_routr$has_route("user-routes")) server$plugins$request_routr$remove_route("user-routes") - + router <- server$plugins$request_routr route <- routr::Route$new() - + for (routing in user_routes) { route$add_handler(method=routing$methods, path=routing$path, handler=routing$handler) } - + router$add_route(route, "user-routes") }, name = "user_routes", require = "request_routr" ) - + self$server$attach(plugin, force = TRUE) } - + if(getAppPath() != FALSE) { source_dir <- dirname(getAppPath()) private$app_root_modtime <- modtimeFromPath(source_dir, recursive = TRUE, asset_path = private$assets_folder) @@ -1304,7 +1306,7 @@ Dash <- R6::R6Class( timing_information <- self$server$get_data('timing-information') dash_total <- timing_information[['__dash_server']] timing_information[['__dash_server']][['dur']] <- round((as.numeric(Sys.time()) - dash_total[['dur']]) * 1000) - + header_as_string <- list() for (item in seq_along(timing_information)) { @@ -1317,11 +1319,11 @@ Dash <- R6::R6Class( if (!is.null(timing_information[[item]]$dur)) { header_content <- paste0(header_content, ';dur=', timing_information[[item]]$dur) } - + header_as_string[[item]] <- header_content } - request$response$append_header('Server-Timing', + request$response$append_header('Server-Timing', paste0(unlist(header_as_string), collapse=", ")) }) } @@ -1443,7 +1445,12 @@ Dash <- R6::R6Class( # flush the context to prepare for the next request cycle self$server$set_data("timing-information", list()) }) - } + } + + attached_packages = .packages() + if (any(c("dashCoreComponents", "dashHtmlComponents", "dashTable") %in% attached_packages)) { + message(strwrap(prefix = "\n", initial = "", "\U{26A0} Note: As of version 1.0, the following packages are deprecated and should no longer be installed or loaded when using Dash for R: `dashHtmlComponents`, `dashCoreComponents`, `dashTable`. These components are now bundled within the `dash` package.")) + } self$server$ignite(block = block, showcase = showcase, ...) } @@ -1501,10 +1508,10 @@ Dash <- R6::R6Class( layout_ids = NULL, layout_render = function() { layout_ <- if (is.function(private$layout_)) private$layout_() else private$layout_ - + # ensure that the layout is a component, or a collection of components layout_ <- private$componentify(layout_) - + # store the layout as a (flattened) vector form since we query the # vector names several times to verify ID naming (among other things) layout_flat <- rapply(layout_, I) @@ -1518,7 +1525,7 @@ Dash <- R6::R6Class( if (duped) { duped_ids <- paste(layout_ids[duplicated(layout_ids)], collapse = ", ") - + stop( sprintf("layout ids must be unique -- please check the following list of duplicated ids: '%s'", duped_ids), call. = FALSE @@ -1530,7 +1537,7 @@ Dash <- R6::R6Class( metadataFns <- lapply(.packages(), getDashMetadata) metadataFns <- metadataFns[lengths(metadataFns) != 0] - deps_layout <- lapply(metadataFns, function(dep) { + deps_layout <- lapply(unlist(metadataFns), function(dep) { # the objective is to identify JS dependencies # without requiring that a proprietary R format # file is loaded at object initialization to @@ -1555,7 +1562,6 @@ Dash <- R6::R6Class( if (mode(fn_summary$obj[[1]]) == "function") { # function is available dep_list <- do.call(fn_summary$obj[[1]], list()) - return(dep_list) } else { return(NULL) @@ -1891,9 +1897,11 @@ Dash <- R6::R6Class( # create tag for favicon, if present # other_files_map[names(other_files_map) %in% "/favicon.ico"] if ("/favicon.ico" %in% names(private$asset_map$other)) { - favicon <- sprintf("") + favicon_url <- sprintf('\"%s_favicon.ico\"', self$config$requests_pathname_prefix) + favicon <- sprintf("", favicon_url) } else { - favicon <- "" + favicon_url <- sprintf('\"%s_favicon.ico\"', self$config$requests_pathname_prefix) + favicon <- sprintf("", favicon_url) } # set script tag to invoke a new dash_renderer @@ -1901,7 +1909,6 @@ Dash <- R6::R6Class( "_dash-renderer", "application/javascript", "var renderer = new DashRenderer();") - # add inline tags scripts_inline <- private$inline_scripts @@ -1942,24 +1949,6 @@ Dash <- R6::R6Class( # insert meta tags if present meta_tags <- all_tags[["meta_tags"]] - - # define the react-entry-point - app_entry <- "
Loading...
" - # define the dash default config key - config <- sprintf("", to_JSON(self$config)) - - if (is.null(private$name)) - private$name <- 'Dash' - - if (!is.null(private$custom_index)) { - string_index <- glue::glue(private$custom_index, .open = "{%", .close = "%}") - - private$.index <- string_index - } - - else if (length(private$template_index) == 1) { - private$.index <- private$template_index - } # define the react-entry-point app_entry <- "
Loading...
" diff --git a/R/dashBootstrapComponents.R b/R/dashBootstrapComponents.R new file mode 100644 index 00000000..272d2b29 --- /dev/null +++ b/R/dashBootstrapComponents.R @@ -0,0 +1,1327 @@ +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcAccordion <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, flush=NULL, active_item=NULL, start_collapsed=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, flush=flush, active_item=active_item, start_collapsed=start_collapsed, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Accordion', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'flush', 'active_item', 'start_collapsed', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcAccordionItem <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, title=NULL, item_id=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, title=title, item_id=item_id, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'AccordionItem', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'title', 'item_id', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcAlert <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, color=NULL, is_open=NULL, fade=NULL, dismissable=NULL, duration=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, color=color, is_open=is_open, fade=fade, dismissable=dismissable, duration=duration, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Alert', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'color', 'is_open', 'fade', 'dismissable', 'duration', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcBadge <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, color=NULL, text_color=NULL, pill=NULL, href=NULL, tag=NULL, loading_state=NULL, external_link=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, target=NULL, title=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, color=color, text_color=text_color, pill=pill, href=href, tag=tag, loading_state=loading_state, external_link=external_link, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, target=target, title=title) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Badge', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'color', 'text_color', 'pill', 'href', 'tag', 'loading_state', 'external_link', 'n_clicks', 'n_clicks_timestamp', 'target', 'title'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcBreadcrumb <- function(id=NULL, items=NULL, style=NULL, item_style=NULL, class_name=NULL, className=NULL, item_class_name=NULL, itemClassName=NULL, key=NULL, tag=NULL, loading_state=NULL) { + + props <- list(id=id, items=items, style=style, item_style=item_style, class_name=class_name, className=className, item_class_name=item_class_name, itemClassName=itemClassName, key=key, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Breadcrumb', + namespace = 'dash_bootstrap_components', + propNames = c('id', 'items', 'style', 'item_style', 'class_name', 'className', 'item_class_name', 'itemClassName', 'key', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcButton <- function(children=NULL, id=NULL, class_name=NULL, className=NULL, style=NULL, key=NULL, href=NULL, external_link=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, active=NULL, color=NULL, disabled=NULL, size=NULL, title=NULL, outline=NULL, loading_state=NULL, target=NULL, type=NULL, download=NULL, name=NULL, value=NULL) { + + props <- list(children=children, id=id, class_name=class_name, className=className, style=style, key=key, href=href, external_link=external_link, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, active=active, color=color, disabled=disabled, size=size, title=title, outline=outline, loading_state=loading_state, target=target, type=type, download=download, name=name, value=value) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Button', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'class_name', 'className', 'style', 'key', 'href', 'external_link', 'n_clicks', 'n_clicks_timestamp', 'active', 'color', 'disabled', 'size', 'title', 'outline', 'loading_state', 'target', 'type', 'download', 'name', 'value'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcButtonGroup <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, vertical=NULL, size=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, vertical=vertical, size=size, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'ButtonGroup', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'vertical', 'size', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCard <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, color=NULL, body=NULL, outline=NULL, inverse=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, color=color, body=body, outline=outline, inverse=inverse, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Card', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'color', 'body', 'outline', 'inverse', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCardBody <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'CardBody', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCardFooter <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'CardFooter', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCardGroup <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'CardGroup', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCardHeader <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'CardHeader', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCardImg <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, tag=NULL, top=NULL, bottom=NULL, src=NULL, alt=NULL, title=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, tag=tag, top=top, bottom=bottom, src=src, alt=alt, title=title, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'CardImg', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'tag', 'top', 'bottom', 'src', 'alt', 'title', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCardImgOverlay <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'CardImgOverlay', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCardLink <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, href=NULL, external_link=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, loading_state=NULL, target=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, href=href, external_link=external_link, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, loading_state=loading_state, target=target) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'CardLink', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'href', 'external_link', 'n_clicks', 'n_clicks_timestamp', 'loading_state', 'target'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCarousel <- function(id=NULL, style=NULL, class_name=NULL, className=NULL, items=NULL, active_index=NULL, controls=NULL, indicators=NULL, ride=NULL, slide=NULL, variant=NULL, interval=NULL, loading_state=NULL) { + + props <- list(id=id, style=style, class_name=class_name, className=className, items=items, active_index=active_index, controls=controls, indicators=indicators, ride=ride, slide=slide, variant=variant, interval=interval, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Carousel', + namespace = 'dash_bootstrap_components', + propNames = c('id', 'style', 'class_name', 'className', 'items', 'active_index', 'controls', 'indicators', 'ride', 'slide', 'variant', 'interval', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCheckbox <- function(id=NULL, class_name=NULL, className=NULL, style=NULL, input_style=NULL, inputStyle=NULL, input_class_name=NULL, inputClassName=NULL, label=NULL, label_id=NULL, label_style=NULL, labelStyle=NULL, label_class_name=NULL, labelClassName=NULL, name=NULL, disabled=NULL, value=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, class_name=class_name, className=className, style=style, input_style=input_style, inputStyle=inputStyle, input_class_name=input_class_name, inputClassName=inputClassName, label=label, label_id=label_id, label_style=label_style, labelStyle=labelStyle, label_class_name=label_class_name, labelClassName=labelClassName, name=name, disabled=disabled, value=value, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Checkbox', + namespace = 'dash_bootstrap_components', + propNames = c('id', 'class_name', 'className', 'style', 'input_style', 'inputStyle', 'input_class_name', 'inputClassName', 'label', 'label_id', 'label_style', 'labelStyle', 'label_class_name', 'labelClassName', 'name', 'disabled', 'value', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcChecklist <- function(id=NULL, options=NULL, value=NULL, class_name=NULL, className=NULL, style=NULL, key=NULL, input_style=NULL, inputStyle=NULL, input_checked_style=NULL, inputCheckedStyle=NULL, input_class_name=NULL, inputClassName=NULL, input_checked_class_name=NULL, inputCheckedClassName=NULL, label_style=NULL, labelStyle=NULL, label_checked_style=NULL, labelCheckedStyle=NULL, label_class_name=NULL, labelClassName=NULL, label_checked_class_name=NULL, labelCheckedClassName=NULL, inline=NULL, switch=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL, name=NULL) { + + props <- list(id=id, options=options, value=value, class_name=class_name, className=className, style=style, key=key, input_style=input_style, inputStyle=inputStyle, input_checked_style=input_checked_style, inputCheckedStyle=inputCheckedStyle, input_class_name=input_class_name, inputClassName=inputClassName, input_checked_class_name=input_checked_class_name, inputCheckedClassName=inputCheckedClassName, label_style=label_style, labelStyle=labelStyle, label_checked_style=label_checked_style, labelCheckedStyle=labelCheckedStyle, label_class_name=label_class_name, labelClassName=labelClassName, label_checked_class_name=label_checked_class_name, labelCheckedClassName=labelCheckedClassName, inline=inline, switch=switch, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type, name=name) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Checklist', + namespace = 'dash_bootstrap_components', + propNames = c('id', 'options', 'value', 'class_name', 'className', 'style', 'key', 'input_style', 'inputStyle', 'input_checked_style', 'inputCheckedStyle', 'input_class_name', 'inputClassName', 'input_checked_class_name', 'inputCheckedClassName', 'label_style', 'labelStyle', 'label_checked_style', 'labelCheckedStyle', 'label_class_name', 'labelClassName', 'label_checked_class_name', 'labelCheckedClassName', 'inline', 'switch', 'loading_state', 'persistence', 'persisted_props', 'persistence_type', 'name'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCol <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, width=NULL, xs=NULL, sm=NULL, md=NULL, lg=NULL, xl=NULL, xxl=NULL, align=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, width=width, xs=xs, sm=sm, md=md, lg=lg, xl=xl, xxl=xxl, align=align, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Col', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'width', 'xs', 'sm', 'md', 'lg', 'xl', 'xxl', 'align', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcCollapse <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, is_open=NULL, navbar=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, is_open=is_open, navbar=navbar, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Collapse', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'is_open', 'navbar', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcContainer <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, fluid=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, fluid=fluid, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Container', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'fluid', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcDropdownMenu <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, label=NULL, direction=NULL, align_end=NULL, right=NULL, in_navbar=NULL, addon_type=NULL, disabled=NULL, nav=NULL, caret=NULL, color=NULL, menu_variant=NULL, toggle_style=NULL, toggle_class_name=NULL, toggleClassName=NULL, size=NULL, loading_state=NULL, group=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, label=label, direction=direction, align_end=align_end, right=right, in_navbar=in_navbar, addon_type=addon_type, disabled=disabled, nav=nav, caret=caret, color=color, menu_variant=menu_variant, toggle_style=toggle_style, toggle_class_name=toggle_class_name, toggleClassName=toggleClassName, size=size, loading_state=loading_state, group=group) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'DropdownMenu', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'label', 'direction', 'align_end', 'right', 'in_navbar', 'addon_type', 'disabled', 'nav', 'caret', 'color', 'menu_variant', 'toggle_style', 'toggle_class_name', 'toggleClassName', 'size', 'loading_state', 'group'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcDropdownMenuItem <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, active=NULL, disabled=NULL, divider=NULL, header=NULL, href=NULL, toggle=NULL, external_link=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, loading_state=NULL, target=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, active=active, disabled=disabled, divider=divider, header=header, href=href, toggle=toggle, external_link=external_link, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, loading_state=loading_state, target=target) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'DropdownMenuItem', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'active', 'disabled', 'divider', 'header', 'href', 'toggle', 'external_link', 'n_clicks', 'n_clicks_timestamp', 'loading_state', 'target'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcFade <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, is_in=NULL, timeout=NULL, appear=NULL, enter=NULL, exit=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, is_in=is_in, timeout=timeout, appear=appear, enter=enter, exit=exit, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Fade', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'is_in', 'timeout', 'appear', 'enter', 'exit', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcForm <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, action=NULL, method=NULL, n_submit=NULL, n_submit_timestamp=NULL, prevent_default_on_submit=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, action=action, method=method, n_submit=n_submit, n_submit_timestamp=n_submit_timestamp, prevent_default_on_submit=prevent_default_on_submit, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Form', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'action', 'method', 'n_submit', 'n_submit_timestamp', 'prevent_default_on_submit', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcFormFeedback <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, type=NULL, tooltip=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, type=type, tooltip=tooltip, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'FormFeedback', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'type', 'tooltip', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcFormFloating <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, html_for=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, html_for=html_for, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'FormFloating', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'html_for', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcFormText <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, color=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, color=color, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'FormText', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'color', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcInput <- function(id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, type=NULL, value=NULL, disabled=NULL, autocomplete=NULL, autoComplete=NULL, autofocus=NULL, autoFocus=NULL, inputmode=NULL, inputMode=NULL, list=NULL, max=NULL, maxlength=NULL, maxLength=NULL, min=NULL, minlength=NULL, minLength=NULL, step=NULL, html_size=NULL, size=NULL, valid=NULL, invalid=NULL, required=NULL, plaintext=NULL, placeholder=NULL, name=NULL, pattern=NULL, n_submit=NULL, n_submit_timestamp=NULL, n_blur=NULL, n_blur_timestamp=NULL, debounce=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL, tabindex=NULL, tabIndex=NULL) { + + props <- list(id=id, style=style, class_name=class_name, className=className, key=key, type=type, value=value, disabled=disabled, autocomplete=autocomplete, autoComplete=autoComplete, autofocus=autofocus, autoFocus=autoFocus, inputmode=inputmode, inputMode=inputMode, list=list, max=max, maxlength=maxlength, maxLength=maxLength, min=min, minlength=minlength, minLength=minLength, step=step, html_size=html_size, size=size, valid=valid, invalid=invalid, required=required, plaintext=plaintext, placeholder=placeholder, name=name, pattern=pattern, n_submit=n_submit, n_submit_timestamp=n_submit_timestamp, n_blur=n_blur, n_blur_timestamp=n_blur_timestamp, debounce=debounce, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type, tabindex=tabindex, tabIndex=tabIndex) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Input', + namespace = 'dash_bootstrap_components', + propNames = c('id', 'style', 'class_name', 'className', 'key', 'type', 'value', 'disabled', 'autocomplete', 'autoComplete', 'autofocus', 'autoFocus', 'inputmode', 'inputMode', 'list', 'max', 'maxlength', 'maxLength', 'min', 'minlength', 'minLength', 'step', 'html_size', 'size', 'valid', 'invalid', 'required', 'plaintext', 'placeholder', 'name', 'pattern', 'n_submit', 'n_submit_timestamp', 'n_blur', 'n_blur_timestamp', 'debounce', 'loading_state', 'persistence', 'persisted_props', 'persistence_type', 'tabindex', 'tabIndex'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcInputGroup <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, size=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, size=size, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'InputGroup', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'size', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcInputGroupText <- function(children=NULL, id=NULL, style=NULL, key=NULL, class_name=NULL, className=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, key=key, class_name=class_name, className=className, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'InputGroupText', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'key', 'class_name', 'className', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcLabel <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, hidden=NULL, size=NULL, html_for=NULL, check=NULL, width=NULL, xs=NULL, sm=NULL, md=NULL, lg=NULL, xl=NULL, align=NULL, color=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, hidden=hidden, size=size, html_for=html_for, check=check, width=width, xs=xs, sm=sm, md=md, lg=lg, xl=xl, align=align, color=color, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Label', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'hidden', 'size', 'html_for', 'check', 'width', 'xs', 'sm', 'md', 'lg', 'xl', 'align', 'color', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcListGroup <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, tag=NULL, flush=NULL, loading_state=NULL, horizontal=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, tag=tag, flush=flush, loading_state=loading_state, horizontal=horizontal) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'ListGroup', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'tag', 'flush', 'loading_state', 'horizontal'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcListGroupItem <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, tag=NULL, active=NULL, disabled=NULL, color=NULL, action=NULL, href=NULL, external_link=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, loading_state=NULL, target=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, tag=tag, active=active, disabled=disabled, color=color, action=action, href=href, external_link=external_link, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, loading_state=loading_state, target=target) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'ListGroupItem', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'tag', 'active', 'disabled', 'color', 'action', 'href', 'external_link', 'n_clicks', 'n_clicks_timestamp', 'loading_state', 'target'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcModal <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, tag=NULL, is_open=NULL, centered=NULL, scrollable=NULL, autofocus=NULL, autoFocus=NULL, size=NULL, role=NULL, labelledby=NULL, labelledBy=NULL, keyboard=NULL, backdrop=NULL, modal_class_name=NULL, modalClassName=NULL, backdrop_class_name=NULL, backdropClassName=NULL, content_class_name=NULL, contentClassName=NULL, fade=NULL, fullscreen=NULL, zindex=NULL, zIndex=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, tag=tag, is_open=is_open, centered=centered, scrollable=scrollable, autofocus=autofocus, autoFocus=autoFocus, size=size, role=role, labelledby=labelledby, labelledBy=labelledBy, keyboard=keyboard, backdrop=backdrop, modal_class_name=modal_class_name, modalClassName=modalClassName, backdrop_class_name=backdrop_class_name, backdropClassName=backdropClassName, content_class_name=content_class_name, contentClassName=contentClassName, fade=fade, fullscreen=fullscreen, zindex=zindex, zIndex=zIndex) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Modal', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'tag', 'is_open', 'centered', 'scrollable', 'autofocus', 'autoFocus', 'size', 'role', 'labelledby', 'labelledBy', 'keyboard', 'backdrop', 'modal_class_name', 'modalClassName', 'backdrop_class_name', 'backdropClassName', 'content_class_name', 'contentClassName', 'fade', 'fullscreen', 'zindex', 'zIndex'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcModalBody <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'ModalBody', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcModalFooter <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'ModalFooter', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcModalHeader <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, close_button=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, close_button=close_button, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'ModalHeader', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'close_button', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcModalTitle <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'ModalTitle', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcNav <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, pills=NULL, card=NULL, fill=NULL, justified=NULL, vertical=NULL, horizontal=NULL, navbar=NULL, navbar_scroll=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, pills=pills, card=card, fill=fill, justified=justified, vertical=vertical, horizontal=horizontal, navbar=navbar, navbar_scroll=navbar_scroll, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Nav', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'pills', 'card', 'fill', 'justified', 'vertical', 'horizontal', 'navbar', 'navbar_scroll', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcNavItem <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'NavItem', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcNavLink <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, href=NULL, active=NULL, disabled=NULL, external_link=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, loading_state=NULL, target=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, href=href, active=active, disabled=disabled, external_link=external_link, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, loading_state=loading_state, target=target) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'NavLink', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'href', 'active', 'disabled', 'external_link', 'n_clicks', 'n_clicks_timestamp', 'loading_state', 'target'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcNavbar <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, light=NULL, dark=NULL, fixed=NULL, sticky=NULL, color=NULL, role=NULL, tag=NULL, expand=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, light=light, dark=dark, fixed=fixed, sticky=sticky, color=color, role=role, tag=tag, expand=expand, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Navbar', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'light', 'dark', 'fixed', 'sticky', 'color', 'role', 'tag', 'expand', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcNavbarBrand <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, external_link=NULL, href=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, external_link=external_link, href=href, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'NavbarBrand', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'external_link', 'href', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcNavbarSimple <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, brand=NULL, brand_href=NULL, brand_style=NULL, brand_external_link=NULL, fluid=NULL, links_left=NULL, light=NULL, dark=NULL, fixed=NULL, sticky=NULL, color=NULL, expand=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, brand=brand, brand_href=brand_href, brand_style=brand_style, brand_external_link=brand_external_link, fluid=fluid, links_left=links_left, light=light, dark=dark, fixed=fixed, sticky=sticky, color=color, expand=expand, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'NavbarSimple', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'brand', 'brand_href', 'brand_style', 'brand_external_link', 'fluid', 'links_left', 'light', 'dark', 'fixed', 'sticky', 'color', 'expand', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcNavbarToggler <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, type=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, type=type, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'NavbarToggler', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'type', 'n_clicks', 'n_clicks_timestamp', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcOffcanvas <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, labelledby=NULL, labelledBy=NULL, backdrop=NULL, backdrop_class_name=NULL, backdropClassName=NULL, keyboard=NULL, is_open=NULL, placement=NULL, scrollable=NULL, autofocus=NULL, autoFocus=NULL, title=NULL, close_button=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, labelledby=labelledby, labelledBy=labelledBy, backdrop=backdrop, backdrop_class_name=backdrop_class_name, backdropClassName=backdropClassName, keyboard=keyboard, is_open=is_open, placement=placement, scrollable=scrollable, autofocus=autofocus, autoFocus=autoFocus, title=title, close_button=close_button, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Offcanvas', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'labelledby', 'labelledBy', 'backdrop', 'backdrop_class_name', 'backdropClassName', 'keyboard', 'is_open', 'placement', 'scrollable', 'autofocus', 'autoFocus', 'title', 'close_button', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcPagination <- function(id=NULL, class_name=NULL, className=NULL, style=NULL, size=NULL, min_value=NULL, max_value=NULL, step=NULL, active_page=NULL, fully_expanded=NULL, previous_next=NULL, first_last=NULL, loading_state=NULL) { + + props <- list(id=id, class_name=class_name, className=className, style=style, size=size, min_value=min_value, max_value=max_value, step=step, active_page=active_page, fully_expanded=fully_expanded, previous_next=previous_next, first_last=first_last, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Pagination', + namespace = 'dash_bootstrap_components', + propNames = c('id', 'class_name', 'className', 'style', 'size', 'min_value', 'max_value', 'step', 'active_page', 'fully_expanded', 'previous_next', 'first_last', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcPopover <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, placement=NULL, target=NULL, trigger=NULL, is_open=NULL, hide_arrow=NULL, inner_class_name=NULL, innerClassName=NULL, delay=NULL, offset=NULL, flip=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, placement=placement, target=target, trigger=trigger, is_open=is_open, hide_arrow=hide_arrow, inner_class_name=inner_class_name, innerClassName=innerClassName, delay=delay, offset=offset, flip=flip, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Popover', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'placement', 'target', 'trigger', 'is_open', 'hide_arrow', 'inner_class_name', 'innerClassName', 'delay', 'offset', 'flip', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcPopoverBody <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'PopoverBody', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcPopoverHeader <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, tag=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, tag=tag, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'PopoverHeader', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'tag', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcProgress <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, bar=NULL, min=NULL, max=NULL, value=NULL, label=NULL, hide_label=NULL, animated=NULL, striped=NULL, color=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, bar=bar, min=min, max=max, value=value, label=label, hide_label=hide_label, animated=animated, striped=striped, color=color, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Progress', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'bar', 'min', 'max', 'value', 'label', 'hide_label', 'animated', 'striped', 'color', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcRadioButton <- function(id=NULL, class_name=NULL, className=NULL, style=NULL, input_style=NULL, inputStyle=NULL, input_class_name=NULL, inputClassName=NULL, label=NULL, label_id=NULL, label_style=NULL, labelStyle=NULL, label_class_name=NULL, labelClassName=NULL, name=NULL, value=NULL, disabled=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, class_name=class_name, className=className, style=style, input_style=input_style, inputStyle=inputStyle, input_class_name=input_class_name, inputClassName=inputClassName, label=label, label_id=label_id, label_style=label_style, labelStyle=labelStyle, label_class_name=label_class_name, labelClassName=labelClassName, name=name, value=value, disabled=disabled, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'RadioButton', + namespace = 'dash_bootstrap_components', + propNames = c('id', 'class_name', 'className', 'style', 'input_style', 'inputStyle', 'input_class_name', 'inputClassName', 'label', 'label_id', 'label_style', 'labelStyle', 'label_class_name', 'labelClassName', 'name', 'value', 'disabled', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcRadioItems <- function(id=NULL, key=NULL, options=NULL, value=NULL, style=NULL, class_name=NULL, className=NULL, input_style=NULL, inputStyle=NULL, input_checked_style=NULL, inputCheckedStyle=NULL, input_class_name=NULL, inputClassName=NULL, input_checked_class_name=NULL, inputCheckedClassName=NULL, label_style=NULL, labelStyle=NULL, label_checked_style=NULL, labelCheckedStyle=NULL, label_class_name=NULL, labelClassName=NULL, label_checked_class_name=NULL, labelCheckedClassName=NULL, inline=NULL, switch=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL, name=NULL) { + + props <- list(id=id, key=key, options=options, value=value, style=style, class_name=class_name, className=className, input_style=input_style, inputStyle=inputStyle, input_checked_style=input_checked_style, inputCheckedStyle=inputCheckedStyle, input_class_name=input_class_name, inputClassName=inputClassName, input_checked_class_name=input_checked_class_name, inputCheckedClassName=inputCheckedClassName, label_style=label_style, labelStyle=labelStyle, label_checked_style=label_checked_style, labelCheckedStyle=labelCheckedStyle, label_class_name=label_class_name, labelClassName=labelClassName, label_checked_class_name=label_checked_class_name, labelCheckedClassName=labelCheckedClassName, inline=inline, switch=switch, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type, name=name) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'RadioItems', + namespace = 'dash_bootstrap_components', + propNames = c('id', 'key', 'options', 'value', 'style', 'class_name', 'className', 'input_style', 'inputStyle', 'input_checked_style', 'inputCheckedStyle', 'input_class_name', 'inputClassName', 'input_checked_class_name', 'inputCheckedClassName', 'label_style', 'labelStyle', 'label_checked_style', 'labelCheckedStyle', 'label_class_name', 'labelClassName', 'label_checked_class_name', 'labelCheckedClassName', 'inline', 'switch', 'loading_state', 'persistence', 'persisted_props', 'persistence_type', 'name'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcRow <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, align=NULL, justify=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, align=align, justify=justify, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Row', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'align', 'justify', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcSelect <- function(id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, placeholder=NULL, value=NULL, options=NULL, disabled=NULL, required=NULL, valid=NULL, invalid=NULL, size=NULL, html_size=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL, name=NULL) { + + props <- list(id=id, style=style, class_name=class_name, className=className, key=key, placeholder=placeholder, value=value, options=options, disabled=disabled, required=required, valid=valid, invalid=invalid, size=size, html_size=html_size, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type, name=name) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Select', + namespace = 'dash_bootstrap_components', + propNames = c('id', 'style', 'class_name', 'className', 'key', 'placeholder', 'value', 'options', 'disabled', 'required', 'valid', 'invalid', 'size', 'html_size', 'persistence', 'persisted_props', 'persistence_type', 'name'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcSpinner <- function(children=NULL, id=NULL, fullscreen_style=NULL, spinner_style=NULL, fullscreen_class_name=NULL, fullscreenClassName=NULL, spinner_class_name=NULL, spinnerClassName=NULL, color=NULL, type=NULL, size=NULL, fullscreen=NULL, delay_hide=NULL, delay_show=NULL, show_initially=NULL) { + + props <- list(children=children, id=id, fullscreen_style=fullscreen_style, spinner_style=spinner_style, fullscreen_class_name=fullscreen_class_name, fullscreenClassName=fullscreenClassName, spinner_class_name=spinner_class_name, spinnerClassName=spinnerClassName, color=color, type=type, size=size, fullscreen=fullscreen, delay_hide=delay_hide, delay_show=delay_show, show_initially=show_initially) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Spinner', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'fullscreen_style', 'spinner_style', 'fullscreen_class_name', 'fullscreenClassName', 'spinner_class_name', 'spinnerClassName', 'color', 'type', 'size', 'fullscreen', 'delay_hide', 'delay_show', 'show_initially'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcSwitch <- function(id=NULL, class_name=NULL, className=NULL, style=NULL, input_style=NULL, inputStyle=NULL, input_class_name=NULL, inputClassName=NULL, label=NULL, label_id=NULL, label_style=NULL, labelStyle=NULL, label_class_name=NULL, labelClassName=NULL, name=NULL, value=NULL, disabled=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, class_name=class_name, className=className, style=style, input_style=input_style, inputStyle=inputStyle, input_class_name=input_class_name, inputClassName=inputClassName, label=label, label_id=label_id, label_style=label_style, labelStyle=labelStyle, label_class_name=label_class_name, labelClassName=labelClassName, name=name, value=value, disabled=disabled, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Switch', + namespace = 'dash_bootstrap_components', + propNames = c('id', 'class_name', 'className', 'style', 'input_style', 'inputStyle', 'input_class_name', 'inputClassName', 'label', 'label_id', 'label_style', 'labelStyle', 'label_class_name', 'labelClassName', 'name', 'value', 'disabled', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcTab <- function(children=NULL, id=NULL, style=NULL, tab_style=NULL, active_tab_style=NULL, label_style=NULL, active_label_style=NULL, class_name=NULL, className=NULL, tab_class_name=NULL, tabClassName=NULL, active_tab_class_name=NULL, activeTabClassName=NULL, label_class_name=NULL, labelClassName=NULL, active_label_class_name=NULL, activeLabelClassName=NULL, key=NULL, label=NULL, tab_id=NULL, disabled=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, tab_style=tab_style, active_tab_style=active_tab_style, label_style=label_style, active_label_style=active_label_style, class_name=class_name, className=className, tab_class_name=tab_class_name, tabClassName=tabClassName, active_tab_class_name=active_tab_class_name, activeTabClassName=activeTabClassName, label_class_name=label_class_name, labelClassName=labelClassName, active_label_class_name=active_label_class_name, activeLabelClassName=activeLabelClassName, key=key, label=label, tab_id=tab_id, disabled=disabled, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Tab', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'tab_style', 'active_tab_style', 'label_style', 'active_label_style', 'class_name', 'className', 'tab_class_name', 'tabClassName', 'active_tab_class_name', 'activeTabClassName', 'label_class_name', 'labelClassName', 'active_label_class_name', 'activeLabelClassName', 'key', 'label', 'tab_id', 'disabled', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcTable <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, size=NULL, bordered=NULL, borderless=NULL, striped=NULL, color=NULL, dark=NULL, hover=NULL, responsive=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, size=size, bordered=bordered, borderless=borderless, striped=striped, color=color, dark=dark, hover=hover, responsive=responsive, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Table', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'size', 'bordered', 'borderless', 'striped', 'color', 'dark', 'hover', 'responsive', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcTabs <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, active_tab=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, active_tab=active_tab, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Tabs', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'active_tab', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcTextarea <- function(id=NULL, key=NULL, value=NULL, autofocus=NULL, autoFocus=NULL, cols=NULL, disabled=NULL, form=NULL, maxlength=NULL, maxLength=NULL, minlength=NULL, minLength=NULL, name=NULL, placeholder=NULL, readonly=NULL, readOnly=NULL, required=NULL, rows=NULL, wrap=NULL, accesskey=NULL, accessKey=NULL, class_name=NULL, className=NULL, contenteditable=NULL, contentEditable=NULL, contextmenu=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellcheck=NULL, spellCheck=NULL, style=NULL, tabindex=NULL, tabIndex=NULL, title=NULL, size=NULL, valid=NULL, invalid=NULL, n_blur=NULL, n_blur_timestamp=NULL, n_submit=NULL, n_submit_timestamp=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, debounce=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, key=key, value=value, autofocus=autofocus, autoFocus=autoFocus, cols=cols, disabled=disabled, form=form, maxlength=maxlength, maxLength=maxLength, minlength=minlength, minLength=minLength, name=name, placeholder=placeholder, readonly=readonly, readOnly=readOnly, required=required, rows=rows, wrap=wrap, accesskey=accesskey, accessKey=accessKey, class_name=class_name, className=className, contenteditable=contenteditable, contentEditable=contentEditable, contextmenu=contextmenu, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellcheck=spellcheck, spellCheck=spellCheck, style=style, tabindex=tabindex, tabIndex=tabIndex, title=title, size=size, valid=valid, invalid=invalid, n_blur=n_blur, n_blur_timestamp=n_blur_timestamp, n_submit=n_submit, n_submit_timestamp=n_submit_timestamp, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, debounce=debounce, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Textarea', + namespace = 'dash_bootstrap_components', + propNames = c('id', 'key', 'value', 'autofocus', 'autoFocus', 'cols', 'disabled', 'form', 'maxlength', 'maxLength', 'minlength', 'minLength', 'name', 'placeholder', 'readonly', 'readOnly', 'required', 'rows', 'wrap', 'accesskey', 'accessKey', 'class_name', 'className', 'contenteditable', 'contentEditable', 'contextmenu', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellcheck', 'spellCheck', 'style', 'tabindex', 'tabIndex', 'title', 'size', 'valid', 'invalid', 'n_blur', 'n_blur_timestamp', 'n_submit', 'n_submit_timestamp', 'n_clicks', 'n_clicks_timestamp', 'debounce', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcToast <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, header_style=NULL, header_class_name=NULL, headerClassName=NULL, body_style=NULL, body_class_name=NULL, bodyClassName=NULL, tag=NULL, is_open=NULL, key=NULL, header=NULL, dismissable=NULL, duration=NULL, n_dismiss=NULL, n_dismiss_timestamp=NULL, icon=NULL, color=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, header_style=header_style, header_class_name=header_class_name, headerClassName=headerClassName, body_style=body_style, body_class_name=body_class_name, bodyClassName=bodyClassName, tag=tag, is_open=is_open, key=key, header=header, dismissable=dismissable, duration=duration, n_dismiss=n_dismiss, n_dismiss_timestamp=n_dismiss_timestamp, icon=icon, color=color, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Toast', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'header_style', 'header_class_name', 'headerClassName', 'body_style', 'body_class_name', 'bodyClassName', 'tag', 'is_open', 'key', 'header', 'dismissable', 'duration', 'n_dismiss', 'n_dismiss_timestamp', 'icon', 'color', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dbcTooltip <- function(children=NULL, id=NULL, style=NULL, class_name=NULL, className=NULL, key=NULL, target=NULL, placement=NULL, flip=NULL, delay=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, style=style, class_name=class_name, className=className, key=key, target=target, placement=placement, flip=flip, delay=delay, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Tooltip', + namespace = 'dash_bootstrap_components', + propNames = c('children', 'id', 'style', 'class_name', 'className', 'key', 'target', 'placement', 'flip', 'delay', 'loading_state'), + package = 'dashBootstrapComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +#' dbcIcons +#' @description +#' A list of contextually colored icon styles that can be added to Dash Bootstrap Components. +#' @export +dbcIcons <- list( + BOOTSTRAP = "https://cdn.jsdelivr.net/npm/bootstrap-icons@1.5.0/font/bootstrap-icons.css", + FONT_AWESOME = "https://use.fontawesome.com/releases/v5.15.4/css/all.css" +) + +.prependBootswatch <- function(suffix) { + BOOTSWATCH_BASE <- "https://cdn.jsdelivr.net/npm/bootswatch@5.1.0/dist/" + return(paste(BOOTSWATCH_BASE, suffix, sep="")) +} + +#' dbcThemes +#' @description +#' Externally hosted themes that can be passed to the Dash app with `app %>% add_stylesheet()`. +#' @export +dbcThemes <- list( + BOOTSTRAP = "https://cdn.jsdelivr.net/npm/bootstrap@5.1.0/dist/css/bootstrap.min.css", + GRID = "https://cdn.jsdelivr.net/npm/bootstrap@5.1.0/dist/css/bootstrap-grid.min.css", + CERULEAN = .prependBootswatch("cerulean/bootstrap.min.css"), + COSMO = .prependBootswatch("cosmo/bootstrap.min.css"), + CYBORG = .prependBootswatch("cyborg/bootstrap.min.css"), + DARKLY = .prependBootswatch("darkly/bootstrap.min.css"), + FLATLY = .prependBootswatch("flatly/bootstrap.min.css"), + JOURNAL = .prependBootswatch("journal/bootstrap.min.css"), + LITERA = .prependBootswatch("litera/bootstrap.min.css"), + LUMEN = .prependBootswatch("lumen/bootstrap.min.css"), + LUX = .prependBootswatch("lux/bootstrap.min.css"), + MATERIA = .prependBootswatch("materia/bootstrap.min.css"), + MINTY = .prependBootswatch("minty/bootstrap.min.css"), + MORPH = .prependBootswatch("morph/bootstrap.min.css"), + PULSE = .prependBootswatch("pulse/bootstrap.min.css"), + QUARTZ = .prependBootswatch("quartz/bootstrap.min.css"), + SANDSTONE = .prependBootswatch("sandstone/bootstrap.min.css"), + SIMPLEX = .prependBootswatch("simplex/bootstrap.min.css"), + SKETCHY = .prependBootswatch("sketchy/bootstrap.min.css"), + SLATE = .prependBootswatch("slate/bootstrap.min.css"), + SOLAR = .prependBootswatch("solar/bootstrap.min.css"), + SPACELAB = .prependBootswatch("spacelab/bootstrap.min.css"), + SUPERHERO = .prependBootswatch("superhero/bootstrap.min.css"), + UNITED = .prependBootswatch("united/bootstrap.min.css"), + VAPOR = .prependBootswatch("vapor/bootstrap.min.css"), + YETI = .prependBootswatch("yeti/bootstrap.min.css"), + ZEPHYR = .prependBootswatch("zephyr/bootstrap.min.css") +) diff --git a/R/dashCoreComponents.R b/R/dashCoreComponents.R new file mode 100644 index 00000000..298cf62a --- /dev/null +++ b/R/dashCoreComponents.R @@ -0,0 +1,499 @@ +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccChecklist <- function(id=NULL, options=NULL, value=NULL, className=NULL, style=NULL, inputStyle=NULL, inputClassName=NULL, labelStyle=NULL, labelClassName=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL, inline=NULL) { + + props <- list(id=id, options=options, value=value, className=className, style=style, inputStyle=inputStyle, inputClassName=inputClassName, labelStyle=labelStyle, labelClassName=labelClassName, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type, inline=inline) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Checklist', + namespace = 'dash_core_components', + propNames = c('id', 'options', 'value', 'className', 'style', 'inputStyle', 'inputClassName', 'labelStyle', 'labelClassName', 'loading_state', 'persistence', 'persisted_props', 'persistence_type', 'inline'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccClipboard <- function(id=NULL, target_id=NULL, content=NULL, n_clicks=NULL, title=NULL, style=NULL, className=NULL, loading_state=NULL) { + + props <- list(id=id, target_id=target_id, content=content, n_clicks=n_clicks, title=title, style=style, className=className, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Clipboard', + namespace = 'dash_core_components', + propNames = c('id', 'target_id', 'content', 'n_clicks', 'title', 'style', 'className', 'loading_state'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccConfirmDialog <- function(id=NULL, message=NULL, submit_n_clicks=NULL, submit_n_clicks_timestamp=NULL, cancel_n_clicks=NULL, cancel_n_clicks_timestamp=NULL, displayed=NULL) { + + props <- list(id=id, message=message, submit_n_clicks=submit_n_clicks, submit_n_clicks_timestamp=submit_n_clicks_timestamp, cancel_n_clicks=cancel_n_clicks, cancel_n_clicks_timestamp=cancel_n_clicks_timestamp, displayed=displayed) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'ConfirmDialog', + namespace = 'dash_core_components', + propNames = c('id', 'message', 'submit_n_clicks', 'submit_n_clicks_timestamp', 'cancel_n_clicks', 'cancel_n_clicks_timestamp', 'displayed'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccConfirmDialogProvider <- function(children=NULL, id=NULL, message=NULL, submit_n_clicks=NULL, submit_n_clicks_timestamp=NULL, cancel_n_clicks=NULL, cancel_n_clicks_timestamp=NULL, displayed=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, message=message, submit_n_clicks=submit_n_clicks, submit_n_clicks_timestamp=submit_n_clicks_timestamp, cancel_n_clicks=cancel_n_clicks, cancel_n_clicks_timestamp=cancel_n_clicks_timestamp, displayed=displayed, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'ConfirmDialogProvider', + namespace = 'dash_core_components', + propNames = c('children', 'id', 'message', 'submit_n_clicks', 'submit_n_clicks_timestamp', 'cancel_n_clicks', 'cancel_n_clicks_timestamp', 'displayed', 'loading_state'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccDatePickerRange <- function(id=NULL, start_date=NULL, start_date_id=NULL, end_date_id=NULL, end_date=NULL, min_date_allowed=NULL, max_date_allowed=NULL, disabled_days=NULL, initial_visible_month=NULL, start_date_placeholder_text=NULL, end_date_placeholder_text=NULL, day_size=NULL, calendar_orientation=NULL, is_RTL=NULL, reopen_calendar_on_clear=NULL, number_of_months_shown=NULL, with_portal=NULL, with_full_screen_portal=NULL, first_day_of_week=NULL, minimum_nights=NULL, stay_open_on_select=NULL, show_outside_days=NULL, month_format=NULL, display_format=NULL, disabled=NULL, clearable=NULL, style=NULL, className=NULL, updatemode=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, start_date=start_date, start_date_id=start_date_id, end_date_id=end_date_id, end_date=end_date, min_date_allowed=min_date_allowed, max_date_allowed=max_date_allowed, disabled_days=disabled_days, initial_visible_month=initial_visible_month, start_date_placeholder_text=start_date_placeholder_text, end_date_placeholder_text=end_date_placeholder_text, day_size=day_size, calendar_orientation=calendar_orientation, is_RTL=is_RTL, reopen_calendar_on_clear=reopen_calendar_on_clear, number_of_months_shown=number_of_months_shown, with_portal=with_portal, with_full_screen_portal=with_full_screen_portal, first_day_of_week=first_day_of_week, minimum_nights=minimum_nights, stay_open_on_select=stay_open_on_select, show_outside_days=show_outside_days, month_format=month_format, display_format=display_format, disabled=disabled, clearable=clearable, style=style, className=className, updatemode=updatemode, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'DatePickerRange', + namespace = 'dash_core_components', + propNames = c('id', 'start_date', 'start_date_id', 'end_date_id', 'end_date', 'min_date_allowed', 'max_date_allowed', 'disabled_days', 'initial_visible_month', 'start_date_placeholder_text', 'end_date_placeholder_text', 'day_size', 'calendar_orientation', 'is_RTL', 'reopen_calendar_on_clear', 'number_of_months_shown', 'with_portal', 'with_full_screen_portal', 'first_day_of_week', 'minimum_nights', 'stay_open_on_select', 'show_outside_days', 'month_format', 'display_format', 'disabled', 'clearable', 'style', 'className', 'updatemode', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccDatePickerSingle <- function(id=NULL, date=NULL, min_date_allowed=NULL, max_date_allowed=NULL, disabled_days=NULL, initial_visible_month=NULL, day_size=NULL, calendar_orientation=NULL, is_RTL=NULL, placeholder=NULL, reopen_calendar_on_clear=NULL, number_of_months_shown=NULL, with_portal=NULL, with_full_screen_portal=NULL, first_day_of_week=NULL, stay_open_on_select=NULL, show_outside_days=NULL, month_format=NULL, display_format=NULL, disabled=NULL, clearable=NULL, style=NULL, className=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, date=date, min_date_allowed=min_date_allowed, max_date_allowed=max_date_allowed, disabled_days=disabled_days, initial_visible_month=initial_visible_month, day_size=day_size, calendar_orientation=calendar_orientation, is_RTL=is_RTL, placeholder=placeholder, reopen_calendar_on_clear=reopen_calendar_on_clear, number_of_months_shown=number_of_months_shown, with_portal=with_portal, with_full_screen_portal=with_full_screen_portal, first_day_of_week=first_day_of_week, stay_open_on_select=stay_open_on_select, show_outside_days=show_outside_days, month_format=month_format, display_format=display_format, disabled=disabled, clearable=clearable, style=style, className=className, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'DatePickerSingle', + namespace = 'dash_core_components', + propNames = c('id', 'date', 'min_date_allowed', 'max_date_allowed', 'disabled_days', 'initial_visible_month', 'day_size', 'calendar_orientation', 'is_RTL', 'placeholder', 'reopen_calendar_on_clear', 'number_of_months_shown', 'with_portal', 'with_full_screen_portal', 'first_day_of_week', 'stay_open_on_select', 'show_outside_days', 'month_format', 'display_format', 'disabled', 'clearable', 'style', 'className', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccDownload <- function(id=NULL, data=NULL, base64=NULL, type=NULL) { + + props <- list(id=id, data=data, base64=base64, type=type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Download', + namespace = 'dash_core_components', + propNames = c('id', 'data', 'base64', 'type'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccDropdown <- function(id=NULL, options=NULL, value=NULL, optionHeight=NULL, className=NULL, clearable=NULL, disabled=NULL, multi=NULL, placeholder=NULL, searchable=NULL, search_value=NULL, style=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, options=options, value=value, optionHeight=optionHeight, className=className, clearable=clearable, disabled=disabled, multi=multi, placeholder=placeholder, searchable=searchable, search_value=search_value, style=style, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Dropdown', + namespace = 'dash_core_components', + propNames = c('id', 'options', 'value', 'optionHeight', 'className', 'clearable', 'disabled', 'multi', 'placeholder', 'searchable', 'search_value', 'style', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccGraph <- function(id=NULL, responsive=NULL, clickData=NULL, clickAnnotationData=NULL, hoverData=NULL, clear_on_unhover=NULL, selectedData=NULL, relayoutData=NULL, extendData=NULL, prependData=NULL, restyleData=NULL, figure=NULL, style=NULL, className=NULL, animate=NULL, animation_options=NULL, config=NULL, loading_state=NULL) { + + props <- list(id=id, responsive=responsive, clickData=clickData, clickAnnotationData=clickAnnotationData, hoverData=hoverData, clear_on_unhover=clear_on_unhover, selectedData=selectedData, relayoutData=relayoutData, extendData=extendData, prependData=prependData, restyleData=restyleData, figure=figure, style=style, className=className, animate=animate, animation_options=animation_options, config=config, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Graph', + namespace = 'dash_core_components', + propNames = c('id', 'responsive', 'clickData', 'clickAnnotationData', 'hoverData', 'clear_on_unhover', 'selectedData', 'relayoutData', 'extendData', 'prependData', 'restyleData', 'figure', 'style', 'className', 'animate', 'animation_options', 'config', 'loading_state'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccInput <- function(id=NULL, value=NULL, style=NULL, className=NULL, debounce=NULL, type=NULL, autoComplete=NULL, autoFocus=NULL, disabled=NULL, inputMode=NULL, list=NULL, max=NULL, maxLength=NULL, min=NULL, minLength=NULL, multiple=NULL, name=NULL, pattern=NULL, placeholder=NULL, readOnly=NULL, required=NULL, selectionDirection=NULL, selectionEnd=NULL, selectionStart=NULL, size=NULL, spellCheck=NULL, step=NULL, n_submit=NULL, n_submit_timestamp=NULL, n_blur=NULL, n_blur_timestamp=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, value=value, style=style, className=className, debounce=debounce, type=type, autoComplete=autoComplete, autoFocus=autoFocus, disabled=disabled, inputMode=inputMode, list=list, max=max, maxLength=maxLength, min=min, minLength=minLength, multiple=multiple, name=name, pattern=pattern, placeholder=placeholder, readOnly=readOnly, required=required, selectionDirection=selectionDirection, selectionEnd=selectionEnd, selectionStart=selectionStart, size=size, spellCheck=spellCheck, step=step, n_submit=n_submit, n_submit_timestamp=n_submit_timestamp, n_blur=n_blur, n_blur_timestamp=n_blur_timestamp, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Input', + namespace = 'dash_core_components', + propNames = c('id', 'value', 'style', 'className', 'debounce', 'type', 'autoComplete', 'autoFocus', 'disabled', 'inputMode', 'list', 'max', 'maxLength', 'min', 'minLength', 'multiple', 'name', 'pattern', 'placeholder', 'readOnly', 'required', 'selectionDirection', 'selectionEnd', 'selectionStart', 'size', 'spellCheck', 'step', 'n_submit', 'n_submit_timestamp', 'n_blur', 'n_blur_timestamp', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccInterval <- function(id=NULL, interval=NULL, disabled=NULL, n_intervals=NULL, max_intervals=NULL) { + + props <- list(id=id, interval=interval, disabled=disabled, n_intervals=n_intervals, max_intervals=max_intervals) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Interval', + namespace = 'dash_core_components', + propNames = c('id', 'interval', 'disabled', 'n_intervals', 'max_intervals'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccLink <- function(children=NULL, id=NULL, href=NULL, refresh=NULL, className=NULL, style=NULL, title=NULL, target=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, href=href, refresh=refresh, className=className, style=style, title=title, target=target, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Link', + namespace = 'dash_core_components', + propNames = c('children', 'id', 'href', 'refresh', 'className', 'style', 'title', 'target', 'loading_state'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccLoading <- function(children=NULL, id=NULL, type=NULL, fullscreen=NULL, debug=NULL, className=NULL, parent_className=NULL, style=NULL, parent_style=NULL, color=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, type=type, fullscreen=fullscreen, debug=debug, className=className, parent_className=parent_className, style=style, parent_style=parent_style, color=color, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Loading', + namespace = 'dash_core_components', + propNames = c('children', 'id', 'type', 'fullscreen', 'debug', 'className', 'parent_className', 'style', 'parent_style', 'color', 'loading_state'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccLocation <- function(id=NULL, pathname=NULL, search=NULL, hash=NULL, href=NULL, refresh=NULL) { + + props <- list(id=id, pathname=pathname, search=search, hash=hash, href=href, refresh=refresh) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Location', + namespace = 'dash_core_components', + propNames = c('id', 'pathname', 'search', 'hash', 'href', 'refresh'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccLogoutButton <- function(id=NULL, label=NULL, logout_url=NULL, style=NULL, method=NULL, className=NULL, loading_state=NULL) { + + props <- list(id=id, label=label, logout_url=logout_url, style=style, method=method, className=className, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'LogoutButton', + namespace = 'dash_core_components', + propNames = c('id', 'label', 'logout_url', 'style', 'method', 'className', 'loading_state'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccMarkdown <- function(children=NULL, id=NULL, className=NULL, dangerously_allow_html=NULL, dedent=NULL, highlight_config=NULL, loading_state=NULL, style=NULL) { + + props <- list(children=children, id=id, className=className, dangerously_allow_html=dangerously_allow_html, dedent=dedent, highlight_config=highlight_config, loading_state=loading_state, style=style) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Markdown', + namespace = 'dash_core_components', + propNames = c('children', 'id', 'className', 'dangerously_allow_html', 'dedent', 'highlight_config', 'loading_state', 'style'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccRadioItems <- function(id=NULL, options=NULL, value=NULL, style=NULL, className=NULL, inputStyle=NULL, inputClassName=NULL, labelStyle=NULL, labelClassName=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL, inline=NULL) { + + props <- list(id=id, options=options, value=value, style=style, className=className, inputStyle=inputStyle, inputClassName=inputClassName, labelStyle=labelStyle, labelClassName=labelClassName, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type, inline=inline) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'RadioItems', + namespace = 'dash_core_components', + propNames = c('id', 'options', 'value', 'style', 'className', 'inputStyle', 'inputClassName', 'labelStyle', 'labelClassName', 'loading_state', 'persistence', 'persisted_props', 'persistence_type', 'inline'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccRangeSlider <- function(id=NULL, min=NULL, max=NULL, step=NULL, marks=NULL, value=NULL, drag_value=NULL, allowCross=NULL, className=NULL, count=NULL, disabled=NULL, dots=NULL, included=NULL, pushable=NULL, tooltip=NULL, vertical=NULL, verticalHeight=NULL, updatemode=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, min=min, max=max, step=step, marks=marks, value=value, drag_value=drag_value, allowCross=allowCross, className=className, count=count, disabled=disabled, dots=dots, included=included, pushable=pushable, tooltip=tooltip, vertical=vertical, verticalHeight=verticalHeight, updatemode=updatemode, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'RangeSlider', + namespace = 'dash_core_components', + propNames = c('id', 'min', 'max', 'step', 'marks', 'value', 'drag_value', 'allowCross', 'className', 'count', 'disabled', 'dots', 'included', 'pushable', 'tooltip', 'vertical', 'verticalHeight', 'updatemode', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccSlider <- function(id=NULL, min=NULL, max=NULL, step=NULL, marks=NULL, value=NULL, drag_value=NULL, className=NULL, disabled=NULL, dots=NULL, included=NULL, tooltip=NULL, vertical=NULL, verticalHeight=NULL, updatemode=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, min=min, max=max, step=step, marks=marks, value=value, drag_value=drag_value, className=className, disabled=disabled, dots=dots, included=included, tooltip=tooltip, vertical=vertical, verticalHeight=verticalHeight, updatemode=updatemode, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Slider', + namespace = 'dash_core_components', + propNames = c('id', 'min', 'max', 'step', 'marks', 'value', 'drag_value', 'className', 'disabled', 'dots', 'included', 'tooltip', 'vertical', 'verticalHeight', 'updatemode', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccStore <- function(id=NULL, storage_type=NULL, data=NULL, clear_data=NULL, modified_timestamp=NULL) { + + props <- list(id=id, storage_type=storage_type, data=data, clear_data=clear_data, modified_timestamp=modified_timestamp) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Store', + namespace = 'dash_core_components', + propNames = c('id', 'storage_type', 'data', 'clear_data', 'modified_timestamp'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccTab <- function(children=NULL, id=NULL, label=NULL, value=NULL, disabled=NULL, disabled_style=NULL, disabled_className=NULL, className=NULL, selected_className=NULL, style=NULL, selected_style=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, label=label, value=value, disabled=disabled, disabled_style=disabled_style, disabled_className=disabled_className, className=className, selected_className=selected_className, style=style, selected_style=selected_style, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Tab', + namespace = 'dash_core_components', + propNames = c('children', 'id', 'label', 'value', 'disabled', 'disabled_style', 'disabled_className', 'className', 'selected_className', 'style', 'selected_style', 'loading_state'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccTabs <- function(children=NULL, id=NULL, value=NULL, className=NULL, content_className=NULL, parent_className=NULL, style=NULL, parent_style=NULL, content_style=NULL, vertical=NULL, mobile_breakpoint=NULL, colors=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(children=children, id=id, value=value, className=className, content_className=content_className, parent_className=parent_className, style=style, parent_style=parent_style, content_style=content_style, vertical=vertical, mobile_breakpoint=mobile_breakpoint, colors=colors, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Tabs', + namespace = 'dash_core_components', + propNames = c('children', 'id', 'value', 'className', 'content_className', 'parent_className', 'style', 'parent_style', 'content_style', 'vertical', 'mobile_breakpoint', 'colors', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccTextarea <- function(id=NULL, value=NULL, autoFocus=NULL, cols=NULL, disabled=NULL, form=NULL, maxLength=NULL, minLength=NULL, name=NULL, placeholder=NULL, readOnly=NULL, required=NULL, rows=NULL, wrap=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, n_blur=NULL, n_blur_timestamp=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, value=value, autoFocus=autoFocus, cols=cols, disabled=disabled, form=form, maxLength=maxLength, minLength=minLength, name=name, placeholder=placeholder, readOnly=readOnly, required=required, rows=rows, wrap=wrap, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, n_blur=n_blur, n_blur_timestamp=n_blur_timestamp, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Textarea', + namespace = 'dash_core_components', + propNames = c('id', 'value', 'autoFocus', 'cols', 'disabled', 'form', 'maxLength', 'minLength', 'name', 'placeholder', 'readOnly', 'required', 'rows', 'wrap', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'n_blur', 'n_blur_timestamp', 'n_clicks', 'n_clicks_timestamp', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccTooltip <- function(children=NULL, id=NULL, className=NULL, style=NULL, bbox=NULL, show=NULL, direction=NULL, border_color=NULL, background_color=NULL, loading_text=NULL, zindex=NULL, targetable=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, className=className, style=style, bbox=bbox, show=show, direction=direction, border_color=border_color, background_color=background_color, loading_text=loading_text, zindex=zindex, targetable=targetable, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Tooltip', + namespace = 'dash_core_components', + propNames = c('children', 'id', 'className', 'style', 'bbox', 'show', 'direction', 'border_color', 'background_color', 'loading_text', 'zindex', 'targetable', 'loading_state'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dccUpload <- function(children=NULL, id=NULL, contents=NULL, filename=NULL, last_modified=NULL, accept=NULL, disabled=NULL, disable_click=NULL, max_size=NULL, min_size=NULL, multiple=NULL, className=NULL, className_active=NULL, className_reject=NULL, className_disabled=NULL, style=NULL, style_active=NULL, style_reject=NULL, style_disabled=NULL, loading_state=NULL) { + + props <- list(children=children, id=id, contents=contents, filename=filename, last_modified=last_modified, accept=accept, disabled=disabled, disable_click=disable_click, max_size=max_size, min_size=min_size, multiple=multiple, className=className, className_active=className_active, className_reject=className_reject, className_disabled=className_disabled, style=style, style_active=style_active, style_reject=style_reject, style_disabled=style_disabled, loading_state=loading_state) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Upload', + namespace = 'dash_core_components', + propNames = c('children', 'id', 'contents', 'filename', 'last_modified', 'accept', 'disabled', 'disable_click', 'max_size', 'min_size', 'multiple', 'className', 'className_active', 'className_reject', 'className_disabled', 'style', 'style_active', 'style_reject', 'style_disabled', 'loading_state'), + package = 'dashCoreComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} diff --git a/R/dashHtmlComponents.R b/R/dashHtmlComponents.R new file mode 100644 index 00000000..cddfc4d7 --- /dev/null +++ b/R/dashHtmlComponents.R @@ -0,0 +1,2749 @@ +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlA <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, download=NULL, href=NULL, hrefLang=NULL, media=NULL, referrerPolicy=NULL, rel=NULL, shape=NULL, target=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, download=download, href=href, hrefLang=hrefLang, media=media, referrerPolicy=referrerPolicy, rel=rel, shape=shape, target=target, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'A', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'download', 'href', 'hrefLang', 'media', 'referrerPolicy', 'rel', 'shape', 'target', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlAbbr <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Abbr', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlAcronym <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Acronym', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlAddress <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Address', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlArea <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, alt=NULL, coords=NULL, download=NULL, href=NULL, hrefLang=NULL, media=NULL, referrerPolicy=NULL, rel=NULL, shape=NULL, target=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, alt=alt, coords=coords, download=download, href=href, hrefLang=hrefLang, media=media, referrerPolicy=referrerPolicy, rel=rel, shape=shape, target=target, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Area', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'alt', 'coords', 'download', 'href', 'hrefLang', 'media', 'referrerPolicy', 'rel', 'shape', 'target', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlArticle <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Article', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlAside <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Aside', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlAudio <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, autoPlay=NULL, controls=NULL, crossOrigin=NULL, loop=NULL, muted=NULL, preload=NULL, src=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, autoPlay=autoPlay, controls=controls, crossOrigin=crossOrigin, loop=loop, muted=muted, preload=preload, src=src, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Audio', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'autoPlay', 'controls', 'crossOrigin', 'loop', 'muted', 'preload', 'src', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlB <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'B', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlBase <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, href=NULL, target=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, href=href, target=target, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Base', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'href', 'target', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlBasefont <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Basefont', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlBdi <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Bdi', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlBdo <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Bdo', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlBig <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Big', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlBlink <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Blink', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlBlockquote <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, cite=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, cite=cite, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Blockquote', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'cite', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlBr <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Br', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlButton <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, autoFocus=NULL, disabled=NULL, form=NULL, formAction=NULL, formEncType=NULL, formMethod=NULL, formNoValidate=NULL, formTarget=NULL, name=NULL, type=NULL, value=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, autoFocus=autoFocus, disabled=disabled, form=form, formAction=formAction, formEncType=formEncType, formMethod=formMethod, formNoValidate=formNoValidate, formTarget=formTarget, name=name, type=type, value=value, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Button', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'autoFocus', 'disabled', 'form', 'formAction', 'formEncType', 'formMethod', 'formNoValidate', 'formTarget', 'name', 'type', 'value', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlCanvas <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, height=NULL, width=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, height=height, width=width, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Canvas', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'height', 'width', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlCaption <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Caption', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlCenter <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Center', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlCite <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Cite', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlCode <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Code', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlCol <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, span=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, span=span, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Col', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'span', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlColgroup <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, span=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, span=span, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Colgroup', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'span', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlContent <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Content', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlData <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, value=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, value=value, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Data', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'value', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlDatalist <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Datalist', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlDd <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Dd', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlDel <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, cite=NULL, dateTime=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, cite=cite, dateTime=dateTime, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Del', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'cite', 'dateTime', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlDetails <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, open=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, open=open, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Details', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'open', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlDfn <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Dfn', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlDialog <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, open=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, open=open, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Dialog', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'open', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlDiv <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Div', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlDl <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Dl', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlDt <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Dt', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlEm <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Em', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlEmbed <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, height=NULL, src=NULL, type=NULL, width=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, height=height, src=src, type=type, width=width, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Embed', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'height', 'src', 'type', 'width', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlFieldset <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, disabled=NULL, form=NULL, name=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, disabled=disabled, form=form, name=name, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Fieldset', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'disabled', 'form', 'name', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlFigcaption <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Figcaption', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlFigure <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Figure', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlFont <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Font', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlFooter <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Footer', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlForm <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accept=NULL, acceptCharset=NULL, action=NULL, autoComplete=NULL, encType=NULL, method=NULL, name=NULL, noValidate=NULL, target=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accept=accept, acceptCharset=acceptCharset, action=action, autoComplete=autoComplete, encType=encType, method=method, name=name, noValidate=noValidate, target=target, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Form', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accept', 'acceptCharset', 'action', 'autoComplete', 'encType', 'method', 'name', 'noValidate', 'target', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlFrame <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Frame', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlFrameset <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Frameset', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlH1 <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'H1', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlH2 <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'H2', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlH3 <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'H3', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlH4 <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'H4', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlH5 <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'H5', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlH6 <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'H6', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlHeader <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Header', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlHgroup <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Hgroup', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlHr <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Hr', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlI <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'I', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlIframe <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, allow=NULL, height=NULL, name=NULL, referrerPolicy=NULL, sandbox=NULL, src=NULL, srcDoc=NULL, width=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, allow=allow, height=height, name=name, referrerPolicy=referrerPolicy, sandbox=sandbox, src=src, srcDoc=srcDoc, width=width, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Iframe', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'allow', 'height', 'name', 'referrerPolicy', 'sandbox', 'src', 'srcDoc', 'width', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlImg <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, alt=NULL, crossOrigin=NULL, height=NULL, referrerPolicy=NULL, sizes=NULL, src=NULL, srcSet=NULL, useMap=NULL, width=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, alt=alt, crossOrigin=crossOrigin, height=height, referrerPolicy=referrerPolicy, sizes=sizes, src=src, srcSet=srcSet, useMap=useMap, width=width, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Img', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'alt', 'crossOrigin', 'height', 'referrerPolicy', 'sizes', 'src', 'srcSet', 'useMap', 'width', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlIns <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, cite=NULL, dateTime=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, cite=cite, dateTime=dateTime, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Ins', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'cite', 'dateTime', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlKbd <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Kbd', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlKeygen <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, autoFocus=NULL, challenge=NULL, disabled=NULL, form=NULL, keyType=NULL, name=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, autoFocus=autoFocus, challenge=challenge, disabled=disabled, form=form, keyType=keyType, name=name, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Keygen', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'autoFocus', 'challenge', 'disabled', 'form', 'keyType', 'name', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlLabel <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, htmlFor=NULL, form=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, htmlFor=htmlFor, form=form, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Label', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'htmlFor', 'form', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlLegend <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Legend', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlLi <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, value=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, value=value, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Li', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'value', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlLink <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, crossOrigin=NULL, href=NULL, hrefLang=NULL, integrity=NULL, media=NULL, referrerPolicy=NULL, rel=NULL, sizes=NULL, type=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, crossOrigin=crossOrigin, href=href, hrefLang=hrefLang, integrity=integrity, media=media, referrerPolicy=referrerPolicy, rel=rel, sizes=sizes, type=type, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Link', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'crossOrigin', 'href', 'hrefLang', 'integrity', 'media', 'referrerPolicy', 'rel', 'sizes', 'type', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlMain <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Main', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlMapEl <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, name=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, name=name, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'MapEl', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'name', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlMark <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Mark', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlMarquee <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, loop=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, loop=loop, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Marquee', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'loop', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlMeta <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, charSet=NULL, content=NULL, httpEquiv=NULL, name=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, charSet=charSet, content=content, httpEquiv=httpEquiv, name=name, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Meta', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'charSet', 'content', 'httpEquiv', 'name', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlMeter <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, form=NULL, high=NULL, low=NULL, max=NULL, min=NULL, optimum=NULL, value=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, form=form, high=high, low=low, max=max, min=min, optimum=optimum, value=value, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Meter', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'form', 'high', 'low', 'max', 'min', 'optimum', 'value', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlNav <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Nav', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlNobr <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Nobr', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlNoscript <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Noscript', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlObjectEl <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, data=NULL, form=NULL, height=NULL, name=NULL, type=NULL, useMap=NULL, width=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, data=data, form=form, height=height, name=name, type=type, useMap=useMap, width=width, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'ObjectEl', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'data', 'form', 'height', 'name', 'type', 'useMap', 'width', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlOl <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, reversed=NULL, start=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, reversed=reversed, start=start, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Ol', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'reversed', 'start', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlOptgroup <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, disabled=NULL, label=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, disabled=disabled, label=label, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Optgroup', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'disabled', 'label', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlOption <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, disabled=NULL, label=NULL, selected=NULL, value=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, disabled=disabled, label=label, selected=selected, value=value, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Option', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'disabled', 'label', 'selected', 'value', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlOutput <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, htmlFor=NULL, form=NULL, name=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, htmlFor=htmlFor, form=form, name=name, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Output', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'htmlFor', 'form', 'name', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlP <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'P', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlParam <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, name=NULL, value=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, name=name, value=value, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Param', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'name', 'value', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlPicture <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Picture', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlPlaintext <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Plaintext', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlPre <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Pre', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlProgress <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, form=NULL, max=NULL, value=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, form=form, max=max, value=value, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Progress', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'form', 'max', 'value', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlQ <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, cite=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, cite=cite, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Q', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'cite', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlRb <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Rb', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlRp <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Rp', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlRt <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Rt', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlRtc <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Rtc', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlRuby <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Ruby', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlS <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'S', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlSamp <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Samp', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlScript <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, async=NULL, charSet=NULL, crossOrigin=NULL, defer=NULL, integrity=NULL, referrerPolicy=NULL, src=NULL, type=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, async=async, charSet=charSet, crossOrigin=crossOrigin, defer=defer, integrity=integrity, referrerPolicy=referrerPolicy, src=src, type=type, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Script', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'async', 'charSet', 'crossOrigin', 'defer', 'integrity', 'referrerPolicy', 'src', 'type', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlSection <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Section', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlSelect <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, autoComplete=NULL, autoFocus=NULL, disabled=NULL, form=NULL, multiple=NULL, name=NULL, required=NULL, size=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, autoComplete=autoComplete, autoFocus=autoFocus, disabled=disabled, form=form, multiple=multiple, name=name, required=required, size=size, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Select', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'autoComplete', 'autoFocus', 'disabled', 'form', 'multiple', 'name', 'required', 'size', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlShadow <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Shadow', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlSlot <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Slot', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlSmall <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Small', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlSource <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, media=NULL, sizes=NULL, src=NULL, srcSet=NULL, type=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, media=media, sizes=sizes, src=src, srcSet=srcSet, type=type, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Source', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'media', 'sizes', 'src', 'srcSet', 'type', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlSpacer <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Spacer', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlSpan <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Span', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlStrike <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Strike', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlStrong <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Strong', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlSub <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Sub', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlSummary <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Summary', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlSup <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Sup', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlTable <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, summary=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, summary=summary, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Table', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'summary', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlTbody <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Tbody', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlTd <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, colSpan=NULL, headers=NULL, rowSpan=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, colSpan=colSpan, headers=headers, rowSpan=rowSpan, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Td', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'colSpan', 'headers', 'rowSpan', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlTemplate <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Template', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlTextarea <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, autoComplete=NULL, autoFocus=NULL, cols=NULL, disabled=NULL, form=NULL, inputMode=NULL, maxLength=NULL, minLength=NULL, name=NULL, placeholder=NULL, readOnly=NULL, required=NULL, rows=NULL, wrap=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, autoComplete=autoComplete, autoFocus=autoFocus, cols=cols, disabled=disabled, form=form, inputMode=inputMode, maxLength=maxLength, minLength=minLength, name=name, placeholder=placeholder, readOnly=readOnly, required=required, rows=rows, wrap=wrap, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Textarea', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'autoComplete', 'autoFocus', 'cols', 'disabled', 'form', 'inputMode', 'maxLength', 'minLength', 'name', 'placeholder', 'readOnly', 'required', 'rows', 'wrap', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlTfoot <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Tfoot', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlTh <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, colSpan=NULL, headers=NULL, rowSpan=NULL, scope=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, colSpan=colSpan, headers=headers, rowSpan=rowSpan, scope=scope, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Th', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'colSpan', 'headers', 'rowSpan', 'scope', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlThead <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Thead', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlTime <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, dateTime=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, dateTime=dateTime, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Time', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'dateTime', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlTitle <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Title', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlTr <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Tr', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlTrack <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, default=NULL, kind=NULL, label=NULL, src=NULL, srcLang=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, default=default, kind=kind, label=label, src=src, srcLang=srcLang, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Track', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'default', 'kind', 'label', 'src', 'srcLang', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlU <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'U', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlUl <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Ul', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlVar <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Var', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlVideo <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, autoPlay=NULL, controls=NULL, crossOrigin=NULL, height=NULL, loop=NULL, muted=NULL, poster=NULL, preload=NULL, src=NULL, width=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, autoPlay=autoPlay, controls=controls, crossOrigin=crossOrigin, height=height, loop=loop, muted=muted, poster=poster, preload=preload, src=src, width=width, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Video', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'autoPlay', 'controls', 'crossOrigin', 'height', 'loop', 'muted', 'poster', 'preload', 'src', 'width', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlWbr <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Wbr', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} + +# AUTO GENERATED FILE - DO NOT EDIT + + +htmlXmp <- function(children=NULL, id=NULL, n_clicks=NULL, n_clicks_timestamp=NULL, key=NULL, role=NULL, accessKey=NULL, className=NULL, contentEditable=NULL, contextMenu=NULL, dir=NULL, draggable=NULL, hidden=NULL, lang=NULL, spellCheck=NULL, style=NULL, tabIndex=NULL, title=NULL, loading_state=NULL, ...) { + + wildcard_names = names(dash_assert_valid_wildcards(attrib = list('data', 'aria'), ...)) + + props <- list(children=children, id=id, n_clicks=n_clicks, n_clicks_timestamp=n_clicks_timestamp, key=key, role=role, accessKey=accessKey, className=className, contentEditable=contentEditable, contextMenu=contextMenu, dir=dir, draggable=draggable, hidden=hidden, lang=lang, spellCheck=spellCheck, style=style, tabIndex=tabIndex, title=title, loading_state=loading_state, ...) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'Xmp', + namespace = 'dash_html_components', + propNames = c('children', 'id', 'n_clicks', 'n_clicks_timestamp', 'key', 'role', 'accessKey', 'className', 'contentEditable', 'contextMenu', 'dir', 'draggable', 'hidden', 'lang', 'spellCheck', 'style', 'tabIndex', 'title', 'loading_state', wildcard_names), + package = 'dashHtmlComponents' + ) + + structure(component, class = c('dash_component', 'list')) +} diff --git a/R/dashTable.R b/R/dashTable.R new file mode 100644 index 00000000..5da418df --- /dev/null +++ b/R/dashTable.R @@ -0,0 +1,19 @@ +# AUTO GENERATED FILE - DO NOT EDIT + +#' @export +dashDataTable <- function(id=NULL, data=NULL, columns=NULL, active_cell=NULL, include_headers_on_copy_paste=NULL, locale_format=NULL, markdown_options=NULL, css=NULL, data_previous=NULL, data_timestamp=NULL, editable=NULL, end_cell=NULL, export_columns=NULL, export_format=NULL, export_headers=NULL, fill_width=NULL, hidden_columns=NULL, is_focused=NULL, merge_duplicate_headers=NULL, fixed_columns=NULL, fixed_rows=NULL, column_selectable=NULL, row_deletable=NULL, cell_selectable=NULL, row_selectable=NULL, selected_cells=NULL, selected_rows=NULL, selected_columns=NULL, selected_row_ids=NULL, start_cell=NULL, style_as_list_view=NULL, page_action=NULL, page_current=NULL, page_count=NULL, page_size=NULL, dropdown=NULL, dropdown_conditional=NULL, dropdown_data=NULL, tooltip=NULL, tooltip_conditional=NULL, tooltip_data=NULL, tooltip_header=NULL, tooltip_delay=NULL, tooltip_duration=NULL, filter_query=NULL, filter_action=NULL, filter_options=NULL, sort_action=NULL, sort_mode=NULL, sort_by=NULL, sort_as_null=NULL, style_table=NULL, style_cell=NULL, style_data=NULL, style_filter=NULL, style_header=NULL, style_cell_conditional=NULL, style_data_conditional=NULL, style_filter_conditional=NULL, style_header_conditional=NULL, virtualization=NULL, derived_filter_query_structure=NULL, derived_viewport_data=NULL, derived_viewport_indices=NULL, derived_viewport_row_ids=NULL, derived_viewport_selected_columns=NULL, derived_viewport_selected_rows=NULL, derived_viewport_selected_row_ids=NULL, derived_virtual_data=NULL, derived_virtual_indices=NULL, derived_virtual_row_ids=NULL, derived_virtual_selected_rows=NULL, derived_virtual_selected_row_ids=NULL, loading_state=NULL, persistence=NULL, persisted_props=NULL, persistence_type=NULL) { + + props <- list(id=id, data=data, columns=columns, active_cell=active_cell, include_headers_on_copy_paste=include_headers_on_copy_paste, locale_format=locale_format, markdown_options=markdown_options, css=css, data_previous=data_previous, data_timestamp=data_timestamp, editable=editable, end_cell=end_cell, export_columns=export_columns, export_format=export_format, export_headers=export_headers, fill_width=fill_width, hidden_columns=hidden_columns, is_focused=is_focused, merge_duplicate_headers=merge_duplicate_headers, fixed_columns=fixed_columns, fixed_rows=fixed_rows, column_selectable=column_selectable, row_deletable=row_deletable, cell_selectable=cell_selectable, row_selectable=row_selectable, selected_cells=selected_cells, selected_rows=selected_rows, selected_columns=selected_columns, selected_row_ids=selected_row_ids, start_cell=start_cell, style_as_list_view=style_as_list_view, page_action=page_action, page_current=page_current, page_count=page_count, page_size=page_size, dropdown=dropdown, dropdown_conditional=dropdown_conditional, dropdown_data=dropdown_data, tooltip=tooltip, tooltip_conditional=tooltip_conditional, tooltip_data=tooltip_data, tooltip_header=tooltip_header, tooltip_delay=tooltip_delay, tooltip_duration=tooltip_duration, filter_query=filter_query, filter_action=filter_action, filter_options=filter_options, sort_action=sort_action, sort_mode=sort_mode, sort_by=sort_by, sort_as_null=sort_as_null, style_table=style_table, style_cell=style_cell, style_data=style_data, style_filter=style_filter, style_header=style_header, style_cell_conditional=style_cell_conditional, style_data_conditional=style_data_conditional, style_filter_conditional=style_filter_conditional, style_header_conditional=style_header_conditional, virtualization=virtualization, derived_filter_query_structure=derived_filter_query_structure, derived_viewport_data=derived_viewport_data, derived_viewport_indices=derived_viewport_indices, derived_viewport_row_ids=derived_viewport_row_ids, derived_viewport_selected_columns=derived_viewport_selected_columns, derived_viewport_selected_rows=derived_viewport_selected_rows, derived_viewport_selected_row_ids=derived_viewport_selected_row_ids, derived_virtual_data=derived_virtual_data, derived_virtual_indices=derived_virtual_indices, derived_virtual_row_ids=derived_virtual_row_ids, derived_virtual_selected_rows=derived_virtual_selected_rows, derived_virtual_selected_row_ids=derived_virtual_selected_row_ids, loading_state=loading_state, persistence=persistence, persisted_props=persisted_props, persistence_type=persistence_type) + if (length(props) > 0) { + props <- props[!vapply(props, is.null, logical(1))] + } + component <- list( + props = props, + type = 'DataTable', + namespace = 'dash_table', + propNames = c('id', 'data', 'columns', 'active_cell', 'include_headers_on_copy_paste', 'locale_format', 'markdown_options', 'css', 'data_previous', 'data_timestamp', 'editable', 'end_cell', 'export_columns', 'export_format', 'export_headers', 'fill_width', 'hidden_columns', 'is_focused', 'merge_duplicate_headers', 'fixed_columns', 'fixed_rows', 'column_selectable', 'row_deletable', 'cell_selectable', 'row_selectable', 'selected_cells', 'selected_rows', 'selected_columns', 'selected_row_ids', 'start_cell', 'style_as_list_view', 'page_action', 'page_current', 'page_count', 'page_size', 'dropdown', 'dropdown_conditional', 'dropdown_data', 'tooltip', 'tooltip_conditional', 'tooltip_data', 'tooltip_header', 'tooltip_delay', 'tooltip_duration', 'filter_query', 'filter_action', 'filter_options', 'sort_action', 'sort_mode', 'sort_by', 'sort_as_null', 'style_table', 'style_cell', 'style_data', 'style_filter', 'style_header', 'style_cell_conditional', 'style_data_conditional', 'style_filter_conditional', 'style_header_conditional', 'virtualization', 'derived_filter_query_structure', 'derived_viewport_data', 'derived_viewport_indices', 'derived_viewport_row_ids', 'derived_viewport_selected_columns', 'derived_viewport_selected_rows', 'derived_viewport_selected_row_ids', 'derived_virtual_data', 'derived_virtual_indices', 'derived_virtual_row_ids', 'derived_virtual_selected_rows', 'derived_virtual_selected_row_ids', 'loading_state', 'persistence', 'persisted_props', 'persistence_type'), + package = 'dashTable' + ) + + structure(component, class = c('dash_component', 'list')) +} diff --git a/R/dependencies.R b/R/dependencies.R index 5d524a3b..121f0769 100644 --- a/R/dependencies.R +++ b/R/dependencies.R @@ -12,7 +12,7 @@ setWildcardId <- function(id) { #' Input/Output/State definitions #' -#' Use in conjunction with the `callback()` method from the [dash::Dash] class +#' Use in conjunction with the `callback()` method from the [Dash] class #' to define the update logic in your application. #' #' The `dashNoUpdate()` function permits application developers to prevent a @@ -120,13 +120,11 @@ dashNoUpdate <- function() { #' on a key that has `MATCH` in the `output` item(s). `ALLSMALLER` it isn't always #' necessary (you can usually use `ALL` and filter out the indices in your callback), #' but it will make your logic simpler. -#' @name selectors +#' @name selectors #' @rdname selectors #' @export #' @examples -#' if (interactive() && require(dash)) { -#' library(dashCoreComponents) -#' library(dashHtmlComponents) +#' if (interactive() ) { #' library(dash) #' #' # Simple example illustrating use of ALL selector @@ -178,6 +176,8 @@ dashNoUpdate <- function() { #' app$run_server() #' #' # Simple example illustrating use of ALLSMALLER selector +#' library(dash) +#' #' df <- read.csv('https://raw.githubusercontent.com/plotly/datasets/master/gapminder2007.csv', #' stringsAsFactors = FALSE) #' @@ -206,7 +206,7 @@ dashNoUpdate <- function() { #' htmlDiv(id = list("index" = n_clicks, "type" = "output-ex3"), #' children = list(unique(df$country)[n_clicks + 1])) #' )) -#' +#' #' existing_children <- c(existing_children, list(new_children)) #' } #' ) @@ -240,7 +240,7 @@ dashNoUpdate <- function() { #' } else { #' return( #' htmlDiv(sprintf("%s is the life expectancy of %s, and %s.", -#' avgLifeExp, +#' avgLifeExp, #' paste(all_values[-length(all_values)], collapse = " , "), #' paste(all_values[length(all_values)]))) #' ) @@ -251,6 +251,8 @@ dashNoUpdate <- function() { #' app$run_server() #' #' # Simple example illustrating use of MATCH selector +#' library(dash) +#' #' app <- Dash$new() #' #' app$layout(htmlDiv(list( diff --git a/R/df_to_list.R b/R/df_to_list.R new file mode 100644 index 00000000..3d8fe633 --- /dev/null +++ b/R/df_to_list.R @@ -0,0 +1,13 @@ +#' df_to_list +#' @description +#' Helper function to convert a dataframe into the nested list format required for input into Dash DataTable. +#' @param df A data frame object to be coerced into a list of lists for DataTable. +#' @export +df_to_list <- function(df) { + if(!(is.data.frame(df))) + stop("df_to_list requires a data.frame object; please verify that df is of the correct type.") + stats::setNames(lapply(split(df, seq(nrow(df))), + FUN = function (x) { + as.list(x) + }), NULL) +} diff --git a/R/imports.R b/R/imports.R index ce417b77..6aeea889 100644 --- a/R/imports.R +++ b/R/imports.R @@ -1,4 +1,3 @@ -#' @import dashHtmlComponents dashCoreComponents #' @importFrom R6 R6Class #' @importFrom fiery Fire combined_log_format logger_console #' @importFrom routr Route RouteStack ressource_route diff --git a/R/install_snippet.R b/R/install_snippet.R new file mode 100644 index 00000000..d6896ece --- /dev/null +++ b/R/install_snippet.R @@ -0,0 +1,147 @@ +#' Install Dash RStudio snippet +#' +#' Install the Dash code snippet for RStudio, for quickly creating a new Dash +#' app. +#' +#' @return boolean Whether or not the snippet was installed +#' @importFrom utils tail +#' @export +install_snippet <- function() { + # Modified code from https://stackoverflow.com/a/62223103/3943160 (user 'dario') + + added <- FALSE + + # if not on RStudio or RStudioServer exit + if (!nzchar(Sys.getenv("RSTUDIO_USER_IDENTITY"))) { + return(NULL) + } + + # Name of files containing snippet code to copy + # + pckgSnippetsFiles <- "snippet.txt" + + # Name of files to copy into. Order has to be the same + # as in 'pckgSnippetsFiles' + # + rstudioSnippetsFiles <- "r.snippets" + + # Path to directory for RStudios user files depends on OS + # + if (rstudioapi::getVersion() < "1.3") { + rstudioSnippetsPathBase <- file.path(path.expand('~'),".R", "snippets") + } else { + if (.Platform$OS.type == "windows") { + rstudioSnippetsPathBase <- file.path(Sys.getenv("APPDATA"), "RStudio", "snippets") + } else { + rstudioSnippetsPathBase <- file.path(path.expand('~'), ".config/rstudio", "snippets") + } + } + + # Read each file in pckgSnippetsFiles and add its contents + # + for (i in seq_along(pckgSnippetsFiles)) { + + # Try to get template, if template is not found skip it + # + pckgSnippetsFilesPath <- system.file("rstudio", pckgSnippetsFiles[i], package = "dash") + if (pckgSnippetsFilesPath == "") { + next() + } + + # load package snippets definitions + # + pckgSnippetsFileContent <- readLines(pckgSnippetsFilesPath, warn = FALSE) + + # Extract names of package snippets + # + pckgSnippetsFileDefinitions <- pckgSnippetsFileContent[grepl("^snippet (.*)", pckgSnippetsFileContent)] + + + # Construct path for destination file + # + rstudioSnippetsFilePath <- file.path(rstudioSnippetsPathBase, rstudioSnippetsFiles[i]) + + # If targeted RStudios user file does not exist, raise error (otherwise we would 'remove') + # the default snippets from the 'user file' + # + if (!file.exists(rstudioSnippetsFilePath)) { + stop(paste0( "'", rstudioSnippetsFilePath, "' does not exist yet\n.", + "Use RStudio -> Tools -> Global Options -> Code -> Edit Snippets\n", + "To initalize user defined snippets file by adding dummy snippet\n")) + } + + # Extract 'names' of already existing snitppets + # + rstudioSnippetsFileContent <- readLines(rstudioSnippetsFilePath, warn = FALSE) + rstudioSnippetDefinitions <- rstudioSnippetsFileContent[grepl("^snippet (.*)", rstudioSnippetsFileContent)] + + # replace two spaces with tab, ONLY at beginning of string + # + pckgSnippetsFileContentSanitized <- gsub("(?:^ {2})|\\G {2}|\\G\t", "\t", pckgSnippetsFileContent, perl = TRUE) + + # find defintions appearing in packageSnippets but not in rstudioSnippets + # if no snippets are missing go to next file + # + snippetsToCopy <- setdiff(trimws(pckgSnippetsFileDefinitions), trimws(rstudioSnippetDefinitions)) + snippetsNotToCopy <- intersect(trimws(pckgSnippetsFileDefinitions), trimws(rstudioSnippetDefinitions)) + if (length(snippetsToCopy) == 0) { + # cat(paste0("(\nFollowing snippets will NOT be added because there is already a snippet with that name: ", + # paste0(snippetsNotToCopy, collapse=", ") ,")")) + next() + } + + # Inform user about changes, ask to confirm action + # + if (interactive()) { + cat(paste0("You are about to add the following ", length(snippetsToCopy), + " snippets to '", rstudioSnippetsFilePath, "':\n", + paste0(paste0("-", snippetsToCopy), collapse="\n"))) + if (length(snippetsNotToCopy) > 0) { + cat(paste0("\n(The following snippets will NOT be added because there is already a snippet with that name:\n", + paste0(snippetsNotToCopy, collapse=", ") ,")")) + } + answer <- readline(prompt="Do you want to proceed (y/n): ") + if (substr(answer, 1, 1) == "n") { + next() + } + } + + # Create list of line numbers where snippet definitons start + # This list is used to determine the end of each definition block + # + allPckgSnippetDefinitonStarts <- grep("^snippet .*", pckgSnippetsFileContentSanitized) + + for (s in snippetsToCopy) { + startLine <- grep(paste0("^", s, ".*"), pckgSnippetsFileContentSanitized) + + # Find last line of snippet definition: + # First find start of next defintion and return + # previous line number or lastline if already in last definiton + # + endLine <- allPckgSnippetDefinitonStarts[allPckgSnippetDefinitonStarts > startLine][1] -1 + if (is.na(endLine)) { + endLine <- length(pckgSnippetsFileContentSanitized) + } + + snippetText <- paste0(pckgSnippetsFileContentSanitized[startLine:endLine], collapse = "\n") + + # Make sure there is at least one empty line between entries + # + if (tail(readLines(rstudioSnippetsFilePath, warn = FALSE), n=1) != "") { + snippetText <- paste0("\n", snippetText) + } + + # Append snippet block, print message + # + cat(paste0(snippetText, "\n"), file = rstudioSnippetsFilePath, append = TRUE) + cat(paste0("* Added '", s, "' to '", rstudioSnippetsFilePath, "'\n")) + added <- TRUE + } + } + + if (added) { + cat("Restart RStudio to use new snippets") + } + + invisible(added) +} diff --git a/R/internal.R b/R/internal.R index 113e5733..4df2a624 100644 --- a/R/internal.R +++ b/R/internal.R @@ -36,9 +36,9 @@ all_files = FALSE), class = "html_dependency"), `dash-renderer-dev` = structure(list(name = "dash-renderer", - version = "1.8.2", - src = list(href = "https://unpkg.com/dash-renderer@1.8.2", - file = "lib/dash-renderer@1.8.2"), + version = "1.8.3", + src = list(href = "https://unpkg.com/dash-renderer@1.8.3", + file = "lib/dash-renderer@1.8.3"), meta = NULL, script = "dash-renderer/dash_renderer.dev.js", stylesheet = NULL, @@ -47,22 +47,10 @@ package = "dash", all_files = FALSE), class = "html_dependency"), - `dash-renderer-map-dev` = structure(list(name = "dash-renderer", - version = "1.8.2", - src = list(href = "https://unpkg.com/dash-renderer@1.8.2", - file = "lib/dash-renderer@1.8.2"), - meta = NULL, - script = "dash-renderer/dash_renderer.dev.js.map", - stylesheet = NULL, - head = NULL, - attachment = NULL, - package = "dash", - all_files = FALSE), - class = "html_dependency"), `dash-renderer-prod` = structure(list(name = "dash-renderer", - version = "1.8.2", - src = list(href = "https://unpkg.com/dash-renderer@1.8.2", - file = "lib/dash-renderer@1.8.2"), + version = "1.8.3", + src = list(href = "https://unpkg.com/dash-renderer@1.8.3", + file = "lib/dash-renderer@1.8.3"), meta = NULL, script = "dash-renderer/dash_renderer.min.js", stylesheet = NULL, @@ -71,18 +59,6 @@ package = "dash", all_files = FALSE), class = "html_dependency"), - `dash-renderer-map-prod` = structure(list(name = "dash-renderer", - version = "1.8.2", - src = list(href = "https://unpkg.com/dash-renderer@1.8.2", - file = "lib/dash-renderer@1.8.2"), - meta = NULL, - script = "dash-renderer/dash_renderer.min.js.map", - stylesheet = NULL, - head = NULL, - attachment = NULL, - package = "dash", - all_files = FALSE), - class = "html_dependency"), `prop-types-dev` = structure(list(name = "prop-types", version = "15.7.2", src = list(href = "https://unpkg.com/prop-types@15.7.2", @@ -110,3 +86,142 @@ ) return(deps_metadata) } + +.dashCoreComponents_js_metadata <- function() { +deps_metadata <- list(`dash_core_components` = structure(list(name = "dash_core_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dcc/async-datepicker.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = TRUE), class = "html_dependency"), +`dash_core_components` = structure(list(name = "dash_core_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dcc/async-dropdown.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = TRUE), class = "html_dependency"), +`dash_core_components` = structure(list(name = "dash_core_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dcc/async-graph.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = TRUE), class = "html_dependency"), +`dash_core_components` = structure(list(name = "dash_core_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dcc/async-highlight.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = TRUE), class = "html_dependency"), +`dash_core_components` = structure(list(name = "dash_core_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dcc/async-markdown.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = TRUE), class = "html_dependency"), +`dash_core_components` = structure(list(name = "dash_core_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dcc/async-slider.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = TRUE), class = "html_dependency"), +`dash_core_components` = structure(list(name = "dash_core_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dcc/async-upload.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = TRUE), class = "html_dependency"), +`dash_core_components` = structure(list(name = "dash_core_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dcc/dash_core_components.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE), class = "html_dependency"), +`dash_core_components` = structure(list(name = "dash_core_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dcc/dash_core_components-shared.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE), class = "html_dependency"), +`dash_core_components` = structure(list(name = "dash_core_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dcc/plotly.min.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = 'eager'), class = "html_dependency"), +`dash_core_components` = structure(list(name = "dash_core_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dcc/async-plotlyjs.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = 'lazy'), class = "html_dependency")) +return(deps_metadata) +} + + +.dashHtmlComponents_js_metadata <- function() { +deps_metadata <- list(`dash_html_components` = structure(list(name = "dash_html_components", +version = "2.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'html/dash_html_components.min.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE), 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) + } +} + + +.dashTable_js_metadata <- function() { +deps_metadata <- list(`dash_table` = structure(list(name = "dash_table", +version = "5.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dash_table/async-export.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = TRUE), class = "html_dependency"), +`dash_table` = structure(list(name = "dash_table", +version = "5.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dash_table/async-table.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = TRUE), class = "html_dependency"), +`dash_table` = structure(list(name = "dash_table", +version = "5.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dash_table/async-highlight.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE, async = TRUE), class = "html_dependency"), +`dash_table` = structure(list(name = "dash_table", +version = "5.0.0", src = list(href = NULL, +file = "deps"), meta = NULL, +script = 'dash_table/bundle.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE), class = "html_dependency")) +return(deps_metadata) +} + + +.dashBootstrapComponents_js_metadata <- function() { +deps_metadata <- list(`dash_bootstrap_components` = structure(list(name = "dash_bootstrap_components", +version = "1.0.0-dev", src = list(href = NULL, +file = "deps"), meta = NULL, +script = '_components/dash_bootstrap_components.min.js', +stylesheet = NULL, head = NULL, attachment = NULL, package = "dash", +all_files = FALSE), class = "html_dependency")) +return(deps_metadata) +} + diff --git a/R/simple_table.R b/R/simple_table.R new file mode 100644 index 00000000..da146738 --- /dev/null +++ b/R/simple_table.R @@ -0,0 +1,58 @@ +#' Simple HTML table +#' +#' @param data A data.frame +#' @param colnames _(logical)_ Whether or not to show the column names (a header row) +#' @param rownames _(logical)_ Whether or not to show the row names +#' @examples +#' if (interactive()) { +#' app <- dash_app() %>% +#' set_layout( +#' dccChecklist( +#' id = "table_params", +#' labelStyle = list(display = "block"), +#' options = list( +#' list(label = "Header", value = "colnames"), +#' list(label = "Row names", value = "rownames") +#' ) +#' ), +#' br(), +#' div(id = "table") +#' ) +#' +#' app %>% add_callback( +#' output(id = 'table', property = 'children'), +#' input(id = 'table_params', property = 'value'), +#' function(val) { +#' simple_table(mtcars, colnames = "colnames" %in% val, rownames = "rownames" %in% val) +#' } +#' ) +#' +#' app %>% run_app() +#' } +#' @export +simple_table <- function(data, colnames = TRUE, rownames = FALSE) { + if (!is.data.frame(data)) { + stop("simple_table: `data` must be a data.frame", call. = FALSE) + } + if (ncol(data) == 0) { + return(NULL) + } + + header <- NULL + if (isTRUE(colnames) && !is.null(colnames(data))) { + header <- lapply(colnames(data), html$th) + if (isTRUE(rownames)) { + header <- c(list(html$th("")), header) + } + header <- html$tr(header) + } + + rows <- lapply(seq(nrow(data)), function(rownum) { + row <- lapply(as.character(data[rownum, ]), html$td) + if (isTRUE(rownames)) { + row <- c(list(html$td(rownames(data[rownum, ]))), row) + } + html$tr(row) + }) + html$table(c(list(header), rows)) +} diff --git a/R/tags.R b/R/tags.R new file mode 100644 index 00000000..97298dd6 --- /dev/null +++ b/R/tags.R @@ -0,0 +1,140 @@ +#' Create HTML tags +#' +#' Create an HTML tag to place in a Dash app layout. All tags are available +#' in the `html` list, and some common tags have shortcuts as functions for +#' convenience (e.g. `h1()` produces `

` and is equivalent to `html$h1()`). +#' +#' @name tags +#' @param ... Any named arguments become tag attributes, and any unnamed +#' arguments become children. A named argument with a value of `NULL` will +#' be removed, and a named argument with a value of `NA` will be rendered +#' as a boolean argument. See 'Special attributes' below for more information. +#' @param tag_name The name of the HTML tag. +#' @param content List of attributes and children. +#' +#' @section Special attributes: +#' There are a few HTML attributes that are treated in a special way: +#' - To add a `class` attribute, use the `className` parameter +#' - To add a `for` attribute, use the `htmlFor` parameter +#' - The `style` attribute is not provided as a string. Instead, it's provided +#' as a named list, where the name and value of each element correspond to the +#' CSS property and value. Each CSS property should be written in camelCase. +#' - A special property `n_clicks` is automatically added to every HTML tag. +#' This property represents the number of times that this element has been +#' clicked on. If not explicitly initialized to a certain integer, its default +#' value is `NULL` initially. +#' +#' @examples +#' if (interactive()) { +#' app <- dash_app() +#' app %>% set_layout( +#' html$div( +#' h1( +#' "title", +#' style = list( +#' "color" = "red", +#' "backgroundColor" = "blue" +#' ) +#' ), +#' "some text", +#' button( +#' "can't click me", +#' disabled = NA, +#' className = "mybtn" +#' ) +#' ) +#' ) +#' app %>% run_app() +#'} +NULL + +#' @rdname tags +#' @format NULL +#' @export +html <- lapply(all_tags, function(tag_name) { + rlang::new_function( + args = alist(... = ), + body = rlang::expr({ + dash_tag(!!tag_name, list(...)) + }), + env = asNamespace("dash") + ) +}) + +#' @rdname tags +#' @export +h1 <- html$h1 + +#' @rdname tags +#' @export +h2 <- html$h2 + +#' @rdname tags +#' @export +h3 <- html$h3 + +#' @rdname tags +#' @export +h4 <- html$h4 + +#' @rdname tags +#' @export +div <- html$div + +#' @rdname tags +#' @export +span <- html$span + +#' @rdname tags +#' @export +p <- html$p + +#' @rdname tags +#' @export +strong <- html$strong + +#' @rdname tags +#' @export +br <- html$br + +#' @rdname tags +#' @export +button <- html$button + +#' @rdname tags +#' @export +a <- html$a + +#' @rdname tags +#' @export +img <- html$img + +#' @rdname tags +#' @export +dash_tag <- function(tag_name, content = list()) { + content_names <- rlang::names2(content) + content_named_idx <- nzchar(content_names) + attributes <- remove_empty(content[content_named_idx]) + children <- unname(content[!content_named_idx]) + + # Try to match the exact level of nesting of children as original {dash} + if (length(children) == 0) { + children <- NULL + } else if (length(children) == 1) { + children <- children[[1]] + } + + # Support boolean attributes + attributes[is.na(attributes)] <- names(attributes[is.na(attributes)]) + attributes[attributes == ""] <- names(attributes[attributes == ""]) + + tag_params <- attributes + tag_params[["children"]] <- children + + dash_html_fx <- paste0("html", toupper(substring(tag_name, 1, 1)), substring(tag_name, 2)) + if (tag_name %in% c("map", "object")) { + dash_html_fx <- paste0(dash_html_fx, "El") + } + + do.call(dash_html_fx, tag_params) +} diff --git a/R/utils-pipe.R b/R/utils-pipe.R new file mode 100644 index 00000000..fd0b1d13 --- /dev/null +++ b/R/utils-pipe.R @@ -0,0 +1,14 @@ +#' Pipe operator +#' +#' See \code{magrittr::\link[magrittr:pipe]{\%>\%}} for details. +#' +#' @name %>% +#' @rdname pipe +#' @keywords internal +#' @export +#' @importFrom magrittr %>% +#' @usage lhs \%>\% rhs +#' @param lhs A value or the magrittr placeholder. +#' @param rhs A function call using the magrittr semantics. +#' @return The result of calling `rhs(lhs)`. +NULL diff --git a/R/utils.R b/R/utils.R index 3715e7d8..d7eea0e5 100644 --- a/R/utils.R +++ b/R/utils.R @@ -338,12 +338,26 @@ clean_dependencies <- function(deps) { } insertIntoCallbackMap <- function(map, inputs, output, state, func, clientside_function) { - map[[createCallbackId(output)]] <- list(inputs=inputs, - output=output, - state=state, - func=func, - clientside_function=clientside_function - ) + output_id <- createCallbackId(output) + + if (output_id %in% names(map)) { + stop( + sprintf( + "One or more of the following outputs are duplicated across callbacks: %s. Please ensure that all ID and property combinations are unique.", + output_id + ), + call. = FALSE + ) + } + + map[[output_id]] <- list( + inputs = inputs, + output = output, + state = state, + func = func, + clientside_function = clientside_function + ) + if (length(map) >= 2) { ids <- lapply(names(map), function(x) getIdProps(x)$ids) props <- lapply(names(map), function(x) getIdProps(x)$props) @@ -365,6 +379,11 @@ assert_valid_callbacks <- function(output, params, func) { !any(c('input', 'state') %in% attr(x, "class")) }, FUN.VALUE=logical(1)) + if (!is.list(output[[1]])) listed_output <- list(output) else listed_output <- output + invalid_outputs <- vapply(listed_output, function(x) { + !any(c('output') %in% attr(x, "class")) + }, FUN.VALUE=logical(1)) + # Verify that no outputs are duplicated if (length(output) != length(unique(output))) { stop(sprintf("One or more callback outputs have been duplicated; please confirm that all outputs are unique."), call. = FALSE) @@ -375,11 +394,12 @@ assert_valid_callbacks <- function(output, params, func) { stop(sprintf("Callback parameters must be inputs or states. Please verify formatting of callback parameters."), call. = FALSE) } - # Verify that 'input' parameters always precede 'state', if present - if (!(valid_seq(params))) { - stop(sprintf("Strict ordering of callback handler parameters is required. Please ensure that input parameters precede all state parameters."), call. = FALSE) + # Verify that output contains no elements that are not a member of the 'output' class. + if (any(invalid_outputs)) { + stop(sprintf("Callback outputs must be output function calls. Please verify formatting of callback outputs."), call. = FALSE) } + # Assert that the component ID as passed is a string. # This function inspects the output object to see if its ID # is a valid string. @@ -423,12 +443,12 @@ assert_valid_callbacks <- function(output, params, func) { valid_wildcard_inputs <- sapply(inputs, function(x) { assertValidWildcards(x) }) - - + + valid_wildcard_state <- sapply(state, function(x) { assertValidWildcards(x) }) - + if(any(sapply(output, is.list))) { valid_wildcard_output <- sapply(output, function(x) { assertValidWildcards(x) @@ -439,7 +459,7 @@ assert_valid_callbacks <- function(output, params, func) { }) } - + # Check that outputs are not inputs # https://github.com/plotly/dash/issues/323 @@ -675,7 +695,7 @@ assertValidExternals <- function(scripts, stylesheets) { "rev") script_attributes <- character() stylesheet_attributes <- character() - + for (item in scripts) { if (is.list(item)) { if (!"src" %in% names(item) || !(any(grepl("^(?:http(s)?:\\/\\/)?[\\w.-]+(?:\\.[\\w\\.-]+)+[\\w\\-\\._~:/?#[\\]@!\\$&'\\(\\)\\*\\+,;=.]+$", @@ -713,10 +733,10 @@ assertValidExternals <- function(scripts, stylesheets) { stylesheet_attributes <- c(stylesheet_attributes, character(0)) } } - + invalid_script_attributes <- setdiff(script_attributes, allowed_js_attribs) invalid_stylesheet_attributes <- setdiff(stylesheet_attributes, allowed_css_attribs) - + if (length(invalid_script_attributes) > 0 || length(invalid_stylesheet_attributes) > 0) { stop(sprintf("The following script or stylesheet attributes are invalid: %s.", paste0(c(invalid_script_attributes, invalid_stylesheet_attributes), collapse=", ")), call. = FALSE) @@ -1031,7 +1051,7 @@ removeHandlers <- function(fnList) { setCallbackContext <- function(callback_elements) { # Set state elements for this callback - + if (length(callback_elements$state[[1]]) == 0) { states <- sapply(callback_elements$state, function(x) { setNames(list(x$value), paste(x$id, x$property, sep=".")) @@ -1043,7 +1063,7 @@ setCallbackContext <- function(callback_elements) { } else { states <- sapply(callback_elements$state, function(x) { states_vector <- unlist(x) - setNames(list(states_vector[grepl("value|value.", names(states_vector))]), + setNames(list(states_vector[grepl("value|value.", names(states_vector))]), paste(as.character(jsonlite::toJSON(x[[1]])), x$property, sep=".")) }) } @@ -1054,26 +1074,30 @@ setCallbackContext <- function(callback_elements) { function(x) { input_id <- splitIdProp(x)[1] prop <- splitIdProp(x)[2] - - # The following conditionals check whether the callback is a pattern-matching callback and if it has been triggered. + + # The following conditionals check whether the callback is a pattern-matching callback and if it has been triggered. if (startsWith(input_id, "{")){ id_match <- vapply(callback_elements$inputs, function(x) { x <- unlist(x) any(x[grepl("id.", names(x))] %in% jsonlite::fromJSON(input_id)[[1]]) }, logical(1))[[1]] } else { - id_match <- vapply(callback_elements$inputs, function(x) x$id %in% input_id, logical(1)) + id_match <- vapply(callback_elements$inputs, function(x) { + unlist(x) + any(x$id %in% input_id)}, logical(1)) } - + if (startsWith(input_id, "{")){ prop_match <- vapply(callback_elements$inputs, function(x) { x <- unlist(x) any(x[names(x) == "property"] %in% prop) }, logical(1))[[1]] } else { - prop_match <- vapply(callback_elements$inputs, function(x) x$property %in% prop, logical(1)) + prop_match <- vapply(callback_elements$inputs, function(x) { + unlist(x) + any(x$property %in% prop)}, logical(1)) } - + if (startsWith(input_id, "{")){ if (length(callback_elements$inputs) == 1 || !is.null(unlist(callback_elements$inputs, recursive = F)$value)) { value <- sapply(callback_elements$inputs[id_match & prop_match], `[[`, "value") @@ -1083,7 +1107,7 @@ setCallbackContext <- function(callback_elements) { } else { value <- sapply(callback_elements$inputs[id_match & prop_match], `[[`, "value") } - + return(list(`prop_id` = x, `value` = value)) } ) @@ -1129,7 +1153,7 @@ createCallbackId <- function(output) { } getIdProps <- function(output) { - output_ids <- strsplit(substr(output, 3, nchar(output)-2), '...', fixed=TRUE) + output_ids <- strsplit(gsub("^\\.{2}|\\.{2}$", "", output), '...', fixed=TRUE) idprops <- lapply(output_ids, strsplit, '.', fixed=TRUE) ids <- vapply(unlist(idprops, recursive=FALSE), '[', character(1), 1) props <- vapply(unlist(idprops, recursive=FALSE), '[', character(1), 2) @@ -1532,3 +1556,39 @@ validate_keys <- function(string, is_template) { return(string) } } + +# Dash Layout Helper Functions + +#' Is the given object a Dash app? +#' @param x Any object. +is_dash_app <- function(x) { + inherits(x, "Dash") +} + +assert_dash <- function(x) { + if (!is_dash_app(x)) { + stop("You must provide a Dash app object (created with `Dash$new()` or `dash_app()`)", call. = FALSE) + } + invisible(TRUE) +} + +componentify <- function(x) { + if (asNamespace("dash")$is.component(x)) { + x + } else if (inherits(x, "shiny.tag") || inherits(x, "shiny.tag.list")) { + stop("dash: layout cannot include Shiny tags (you might have loaded the {shiny} package after loading {dash})", call. = FALSE) + } else if (is.list(x)) { + x <- remove_empty(x) + htmlDiv(children = lapply(x, componentify)) + } else if (length(x) == 1) { + htmlSpan(children = x) + } else if (is.null(x)) { + return(NULL) + } else { + stop("dash: layout must be a dash component or list of dash components", call. = FALSE) + } +} + +remove_empty <- function(x) { + Filter(Negate(is.null), x) +} diff --git a/R/wrappers.R b/R/wrappers.R new file mode 100644 index 00000000..1da51bfb --- /dev/null +++ b/R/wrappers.R @@ -0,0 +1,275 @@ +# Dash 1.0 Layout Wrapper Functions (adapted from https://github.com/daattali/dash2) + +#' Create a Dash application +#' +#' This is a convenience function that returns a [`Dash`] R6 object. +#' For advanced usage, you can use the object as an R6 object directly instead +#' of the functions provided by the `{dash}` package. +#' +#' @param title _(character)_ The browser window title. +#' @param update_title _(character)_ The browser window title while a callback +#' is being processed. Set to `NULL` or `""` if you don't want Dash to +#' automatically update the window title. +#' @param assets_folder _(character)_ Path (relative to the current working +#' directory) containing extra files to be served by the browser. All files +#' with ".js" or ".css" extensions will automatically be included on the page, +#' unless excluded with `assets_ignore`. Any other files, such as images, will +#' only be served if explicitly requested. +#' @param assets_url_path _(character)_ URL path for serving assets. For +#' example, a value of "www" means that any request path that begins with +#' "/www" will be mapped to the `assets_folder`. If your assets are hosted +#' online, you can provide a CDN URL, such as "http://your-assets-website". +#' @param assets_ignore _(character)_ Regular expression for ".js" and ".css" +#' files that should not be automatically included. Ignored files will still +#' be served if explicitly requested. Note that you cannot use this to +#' prevent access to sensitive files since ignored files are accessible +#' by users. +#' @param eager_loading _(logical)_ Whether asynchronous resources are +#' prefetched (`TRUE`) or loaded on-demand (`FALSE`). +#' @param serve_locally _(logical)_ Whether to serve HTML dependencies locally +#' or remotely (via URL). +#' @param pathname_url_base _(character)_ Local URL prefix to use app-wide. +#' @param pathname_routes_prefix _(character)_ Prefix applied to the backend +#' routes. Defaults to `pathname_url_base`. +#' @param pathname_requests_prefix _(character)_ Prefix applied to request +#' endpoints made by Dash's front-end. Defaults to `pathname_url_base`. +#' @param compress _(logical)_ Whether to try to compress files and data. If +#' `TRUE`, then `brotli` compression is attempted first, then `gzip`, then the +#' `deflate` algorithm, before falling back to identity. +#' @param suppress_callback_exceptions _(logical)_ Whether to relay warnings +#' about possible layout mis-specifications when registering a callback. +#' @param show_undo_redo _(logical)_ If `TRUE`, the app will have undo and redo +#' buttons for stepping through the history of the app state. +#' @seealso [`run_app()`] +#' @export +dash_app <- function(title = NULL, + update_title = "Updating...", + assets_folder = "assets", + assets_url_path = "/assets", + assets_ignore = NULL, + eager_loading = FALSE, + serve_locally = TRUE, + pathname_url_base = "/", + pathname_routes_prefix = NULL, + pathname_requests_prefix = NULL, + compress = TRUE, + suppress_callback_exceptions = FALSE, + show_undo_redo = FALSE) { + + if (is.null(assets_ignore)) { + assets_ignore <- "" + } + + app <- Dash$new( + assets_folder = assets_folder, + assets_url_path = assets_url_path, + assets_ignore = assets_ignore, + eager_loading = eager_loading, + serve_locally = serve_locally, + url_base_pathname = pathname_url_base, + routes_pathname_prefix = pathname_routes_prefix, + requests_pathname_prefix = pathname_requests_prefix, + compress = compress, + suppress_callback_exceptions = suppress_callback_exceptions, + show_undo_redo = show_undo_redo, + update_title = update_title + ) + + if (!is.null(title)) { + app$title(title) + } + + invisible(app) +} + + +#' Add `` tags to a Dash app +#' +#' @param app A dash application created with [`dash_app()`]. +#' @param meta A single meta tag or a list of meta tags. Each meta tag is a +#' named list with two elements representing a meta tag. See examples below. +#' @examples +#' app <- dash_app() +#' +#' # Add a single meta tag +#' app %>% add_meta(list(name = "description", content = "My App")) +#' +#' # Add multiple meta tags +#' app %>% add_meta(list( +#' list(name = "keywords", content = "dash, analysis, graphs"), +#' list(name = "viewport", content = "width=device-width, initial-scale=1.0") +#' )) +#' @export +add_meta <- function(app, meta) { + assert_dash(app) + if (!is.list(meta[[1]])) { + meta <- list(meta) + } + app$.__enclos_env__$private$meta_tags <- c(app$.__enclos_env__$private$meta_tags, meta) + invisible(app) +} + + +#' Add external (CSS) stylesheets to a Dash app +#' +#' @param app A dash application created with [`dash_app()`]. +#' @param stylesheet A single stylesheet or a list of stylesheets. Each +#' stylesheet is either a string (the URL), or a named list with `href` (the +#' URL) and any other valid `` tag attributes. See examples below. +#' Note that this is only used to add **external** stylesheets, not local. +#' @examples +#' app <- dash_app() +#' +#' # Add a single stylesheet with URL +#' app %>% add_stylesheet("https://cdn.jsdelivr.net/npm/bootstrap@5.0.1/dist/css/bootstrap.min.css") +#' +#' # Add multiple stylesheets with URL +#' app %>% add_stylesheet(list( +#' "https://cdn.jsdelivr.net/npm/bootstrap@5.0.2/dist/css/bootstrap.min.css", +#' "https://code.jquery.com/ui/1.12.1/themes/base/jquery-ui.css" +#' )) +#' +#' # Add a single stylesheet with a list +#' app %>% add_stylesheet( +#' list( +#' href = "https://cdn.jsdelivr.net/npm/bootstrap@5.0.1/dist/css/bootstrap.min.css", +#' integrity = "sha384-+0n0xVW2eSR5OomGNYDnhzAbDsOXxcvSN1TPprVMTNDbiYZCxYbOOl7+AMvyTG2x" +#' ) +#' ) +#' +#' # Add multiple stylesheets with both URL and list +#' app %>% add_stylesheet( +#' list( +#' "https://code.jquery.com/ui/1.12.1/themes/base/jquery-ui.css", +#' "https://fonts.googleapis.com/css?family=Lora", +#' list( +#' href = "https://cdn.jsdelivr.net/npm/bootstrap@5.0.1/dist/css/bootstrap.min.css", +#' integrity = "sha384-+0n0xVW2eSR5OomGNYDnhzAbDsOXxcvSN1TPprVMTNDbiYZCxYbOOl7+AMvyTG2x" +#' ) +#' ) +#' ) +#' @export +add_stylesheet <- function(app, stylesheet) { + assert_dash(app) + if (!is.list(stylesheet) || !is.null(names(stylesheet))) { + stylesheet <- list(stylesheet) + } + app$.__enclos_env__$self$config$external_stylesheets <- c(app$.__enclos_env__$self$config$external_stylesheets, stylesheet) + invisible(app) +} + + +#' Add external (JavaScript) scripts to a Dash app +#' +#' @param app A dash application created with [`dash_app()`] +#' @param script A single script or a list of scripts. Each script is either +#' a string (the URL), or a named list with `src` (the URL) and any other valid +#' `", +config <- sprintf("", jsonlite::toJSON(app$config, auto_unbox=TRUE)) app$interpolate_index( @@ -104,9 +104,7 @@ app$interpolate_index( ## Method `Dash$run_server` ## ------------------------------------------------ -if (interactive() && require(dash)) { - library(dashCoreComponents) - library(dashHtmlComponents) +if (interactive() ) { library(dash) app <- Dash$new() @@ -304,9 +302,9 @@ application object, one option is to clear the routes manually: \preformatted{library(dash) app <- Dash$new() -# A handler to redirect requests with `307` status code (temporary redirects); +# A handler to redirect requests with `307` status code (temporary redirects); # for permanent redirects (`301`), see the `redirect` method described below -# +# # A simple single path-to-path redirect app$server_route('/getting-started', function(request, response, keys, ...) { response$status <- 307L @@ -502,7 +500,7 @@ information but do not trigger the callback directly. For detailed examples of how to use pattern-matching callbacks, see the entry for \link{selectors} or visit our interactive online -documentation at \url{https://dashr.plotly.com}. +documentation at \url{https://dash.plotly.com/r/}. The \code{output} argument defines which layout component property should receive the results (via the \link{output} object). The events that @@ -783,7 +781,7 @@ sample_template <- " # a list, in which each element is a JSON key/value pair, when # reformatted as JSON from the list: # e.g. {"routes_pathname_prefix":"/", "ui":false} -config <- sprintf("", +config <- sprintf("", jsonlite::toJSON(app$config, auto_unbox=TRUE)) app$interpolate_index( @@ -859,7 +857,7 @@ Start the Fiery HTTP server and run a Dash application. \item{\code{dev_tools_prune_errors}}{Logical. Reduce tracebacks such that only lines relevant to user code remain, stripping out Fiery and Dash references? Only available with debugging. \code{TRUE} by default, set to \code{FALSE} to see the complete traceback. Environment variable: \code{DASH_PRUNE_ERRORS}.} -\item{\code{debug}}{Logical. Enable/disable all the Dash developer tools (and the within-browser user interface for the callback graph visualizer and stack traces) unless overridden by the arguments or environment variables. Default is \code{FALSE} when called via \code{run_server}. For more information, please visit \url{https://dashr.plotly.com/devtools}. Environment variable: \code{DASH_DEBUG}.} +\item{\code{debug}}{Logical. Enable/disable all the Dash developer tools (and the within-browser user interface for the callback graph visualizer and stack traces) unless overridden by the arguments or environment variables. Default is \code{FALSE} when called via \code{run_server}. For more information, please visit \url{https://dash.plotly.com/r/devtools}. Environment variable: \code{DASH_DEBUG}.} \item{\code{dev_tools_ui}}{Logical. Show Dash's developer tools UI? Default is \code{TRUE} if \code{debug == TRUE}, \code{FALSE} otherwise. Environment variable: \code{DASH_UI}.} @@ -887,9 +885,7 @@ to the \code{ignite()} method of the \link[fiery:Fire]{fiery::Fire} server. \subsection{Examples}{ \if{html}{\out{
}} -\preformatted{if (interactive() && require(dash)) { - library(dashCoreComponents) - library(dashHtmlComponents) +\preformatted{if (interactive() ) { library(dash) app <- Dash$new() diff --git a/man/add_callback.Rd b/man/add_callback.Rd new file mode 100644 index 00000000..9123e47c --- /dev/null +++ b/man/add_callback.Rd @@ -0,0 +1,30 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/callbacks-advanced.R +\name{add_callback} +\alias{add_callback} +\title{Add a callback to a Dash app} +\usage{ +add_callback(app, outputs, params, callback) +} +\arguments{ +\item{app}{A dash application created with \code{\link[=dash_app]{dash_app()}}.} + +\item{outputs}{Unnamed list. The \code{output} argument provides the component \code{id} +and \code{property} which will be updated by the callback; a callback can +target one or more outputs (i.e. multiple outputs).} + +\item{params}{Unnamed list; provides \link{input} and \link{state} statements, each +with its own defined \code{id} and \code{property}. For pattern-matching callbacks, +the \code{id} field of a component is written in JSON-like syntax and provides +fields that are arbitrary keys which describe the targets of the callback. +See \link{selectors} for more details.} + +\item{callback}{Function; must return \link{output} provided \link{input} or \link{state} +arguments. \code{callback} may be any valid R function, or a character string +containing valid JavaScript, or a call to \link{clientsideFunction}, +including \code{namespace} and \code{function_name} arguments for a locally served +JavaScript function.} +} +\description{ +Add a callback to a Dash app +} diff --git a/man/add_meta.Rd b/man/add_meta.Rd new file mode 100644 index 00000000..9491cb01 --- /dev/null +++ b/man/add_meta.Rd @@ -0,0 +1,29 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/wrappers.R +\name{add_meta} +\alias{add_meta} +\title{Add \verb{} tags to a Dash app} +\usage{ +add_meta(app, meta) +} +\arguments{ +\item{app}{A dash application created with \code{\link[=dash_app]{dash_app()}}.} + +\item{meta}{A single meta tag or a list of meta tags. Each meta tag is a +named list with two elements representing a meta tag. See examples below.} +} +\description{ +Add \verb{} tags to a Dash app +} +\examples{ +app <- dash_app() + +# Add a single meta tag +app \%>\% add_meta(list(name = "description", content = "My App")) + +# Add multiple meta tags +app \%>\% add_meta(list( + list(name = "keywords", content = "dash, analysis, graphs"), + list(name = "viewport", content = "width=device-width, initial-scale=1.0") +)) +} diff --git a/man/add_script.Rd b/man/add_script.Rd new file mode 100644 index 00000000..19385123 --- /dev/null +++ b/man/add_script.Rd @@ -0,0 +1,51 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/wrappers.R +\name{add_script} +\alias{add_script} +\title{Add external (JavaScript) scripts to a Dash app} +\usage{ +add_script(app, script) +} +\arguments{ +\item{app}{A dash application created with \code{\link[=dash_app]{dash_app()}}} + +\item{script}{A single script or a list of scripts. Each script is either +a string (the URL), or a named list with \code{src} (the URL) and any other valid +\verb{", - "", + c("", + "", "" ) ) @@ -72,20 +69,20 @@ test_that("stylesheets can be added with or without attributes", { ) ) ) - - app$layout(htmlDiv( + + app$layout(html$div( "Hello world!" ) ) - + request_with_attributes <- fiery::fake_request( "http://127.0.0.1:8050" ) - + # start up Dash briefly to generate the index app$run_server(block=FALSE) app$server$stop() - + response_with_attributes <- app$server$test_request(request_with_attributes) tags_by_line <- lapply(strsplit(response_with_attributes$body, "\n "), function(x) trimws(x))[[1]] @@ -95,26 +92,93 @@ test_that("stylesheets can be added with or without attributes", { # construct the script tags as they should be generated within # Dash for R this way the mod times and version numbers will # always be in sync with those used by the backend - internal_hrefs <- vapply(dash:::.dash_js_metadata(), function(x) x$src$href, character(1)) - dhc <- dashHtmlComponents:::.dashHtmlComponents_js_metadata()[[1]] - dhc_path <- dash:::getDependencyPath(dhc) - modtime <- as.integer(file.mtime(dhc_path)) - filename <- basename(dash:::buildFingerprint(dhc$script, dhc$version, modtime)) + internal_hrefs <- vapply(.dash_js_metadata(), function(x) x$src$href, character(1)) + + dcc <- .dashCoreComponents_js_metadata() + dhc <- .dashHtmlComponents_js_metadata() + dt <- .dashTable_js_metadata() + dbc <- .dashBootstrapComponents_js_metadata() + + dcc_min <- dcc[which(sapply(dcc, "[[", "script") == "dcc/dash_core_components.js")][[1]] + dcc_shared <- dcc[which(sapply(dcc, "[[", "script") == "dcc/dash_core_components-shared.js")][[1]] + dhc_min <- dhc[which(sapply(dhc, "[[", "script") == "html/dash_html_components.min.js")][[1]] + dt_bundle <- dt[which(sapply(dt, "[[", "script") == "dash_table/bundle.js")][[1]] + dbc_min <- dbc[which(sapply(dbc, "[[", "script") == "_components/dash_bootstrap_components.min.js")][[1]] + + dcc_min_path <- getDependencyPath(dcc_min) + dcc_min_modtime <- as.integer(file.mtime(dcc_min_path)) + dcc_min_filename <- basename(buildFingerprint(dcc_min$script, dcc_min$version, dcc_min_modtime)) + + dcc_shared_path <- getDependencyPath(dcc_shared) + dcc_shared_modtime <- as.integer(file.mtime(dcc_shared_path)) + dcc_shared_filename <- basename(buildFingerprint(dcc_shared$script, dcc_shared$version, dcc_shared_modtime)) + + dhc_min_path <- getDependencyPath(dhc_min) + dhc_min_modtime <- as.integer(file.mtime(dhc_min_path)) + dhc_min_filename <- basename(buildFingerprint(dhc_min$script, dhc_min$version, dhc_min_modtime)) + + dt_bundle_path <- getDependencyPath(dt_bundle) + dt_bundle_modtime <- as.integer(file.mtime(dt_bundle_path)) + dt_bundle_filename <- basename(buildFingerprint(dt_bundle$script, dt_bundle$version, dt_bundle_modtime)) + + dbc_min_path <- getDependencyPath(dbc_min) + dbc_min_modtime <- as.integer(file.mtime(dbc_min_path)) + dbc_min_filename <- basename(buildFingerprint(dbc_min$script, dbc_min$version, dbc_min_modtime)) + + dcc_min_ref <- paste0("/", + "_dash-component-suites/", + dcc_min$name, + "/", + dcc_min_filename, + "?v=", + dcc_min$version, + "&m=", + dcc_min_modtime) + dcc_shared_ref <- paste0("/", + "_dash-component-suites/", + dcc_shared$name, + "/", + dcc_shared_filename, + "?v=", + dcc_shared$version, + "&m=", + dcc_shared_modtime) dhc_ref <- paste0("/", "_dash-component-suites/", - dhc$name, + dhc_min$name, "/", - filename, + dhc_min_filename, "?v=", - dhc$version, + dhc_min$version, "&m=", - modtime) - - all_tags <- glue::glue("\n") expect_equal( @@ -125,8 +189,8 @@ test_that("stylesheets can be added with or without attributes", { expect_equal( script_hrefs, c(glue::glue_collapse(all_tags, sep="\n"), - "", - "", + "", + "", "" ) ) @@ -134,8 +198,6 @@ test_that("stylesheets can be added with or without attributes", { }) test_that("invalid attributes trigger an error", { - library(dashHtmlComponents) - external_stylesheets <- list( list( href="https://codepen.io/chriddyp/pen/bWLwgP.css", @@ -156,13 +218,11 @@ test_that("invalid attributes trigger an error", { ) ) - expect_error(dash:::assertValidExternals(external_scripts, external_stylesheets), + expect_error(assertValidExternals(external_scripts, external_stylesheets), "The following script or stylesheet attributes are invalid: baz, foo, bar.") }) test_that("not passing named attributes triggers an error", { - library(dashHtmlComponents) - external_stylesheets <- list( list( href="https://codepen.io/chriddyp/pen/bWLwgP.css", @@ -170,21 +230,20 @@ test_that("not passing named attributes triggers an error", { "moredata" ) ) - + external_scripts <- list() - expect_error(dash:::assertValidExternals(external_scripts, external_stylesheets), + expect_error(assertValidExternals(external_scripts, external_stylesheets), "Please verify that all attributes are named elements when specifying URLs for scripts and stylesheets.") }) test_that("stylesheet can be passed as a simple list", { - library(dashHtmlComponents) stylesheet_pattern <- '^.*.*$' script_pattern <- '^.*