View source: R/utils_interface.R
loadRequiredData | R Documentation |
Missing information modal template
loadRequiredData(modal = NULL)
missingDataModal(session, dataType, buttonId)
missingDataGuide(dataType)
modal |
Character: modal identifier |
session |
Shiny session |
dataType |
Character: type of data missing |
buttonId |
Character: identifier of button to take user to load missing data |
NULL
(function is only used to modify the Shiny session's
state or internal variables)
## Not run:
if (shiny::isRunning()) {
session <- session$ns
buttonInput <- "takeMeThere"
buttonId <- ns(buttonInput)
dataType <- "Inclusion levels"
missingDataModal(session, buttonId, dataType)
observeEvent(input[[buttonInput]], missingDataGuide(dataType))
}
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.