Creates a landing welcome popup for teal
applications.
This module is used to display a popup dialog when the application starts. The dialog blocks access to the application and must be closed with a button before the application can be viewed.
Usage
landing_popup_module(
label = "Landing Popup",
title = NULL,
content = NULL,
buttons = modalButton("Accept")
)
Arguments
- label
(
character(1)
) Label of the module.- title
(
character(1)
) Text to be displayed as popup title.- content
(
character(1)
,shiny.tag
orshiny.tag.list
) with the content of the popup. Passed to...
ofshiny::modalDialog
. See examples.- buttons
(
shiny.tag
orshiny.tag.list
) Typically amodalButton
oractionButton
. See examples.
Examples
app1 <- init(
data = teal_data(iris = iris),
modules = modules(
landing_popup_module(
content = "A place for the welcome message or a disclaimer statement.",
buttons = modalButton("Proceed")
),
example_module()
)
)
#> [INFO] 2024-02-07 18:34:46.3232 pid:927 token:[] teal Initializing landing_popup_module
#> module "Landing Popup" server function takes no data so "datanames" will be ignored
if (interactive()) {
shinyApp(app1$ui, app1$server)
}
app2 <- init(
data = teal_data(iris = iris),
modules = modules(
landing_popup_module(
title = "Welcome",
content = tags$b(
"A place for the welcome message or a disclaimer statement.",
style = "color: red;"
),
buttons = tagList(
modalButton("Proceed"),
actionButton("read", "Read more",
onclick = "window.open('http://google.com', '_blank')"
),
actionButton("close", "Reject", onclick = "window.close()")
)
),
example_module()
)
)
#> [INFO] 2024-02-07 18:34:46.3731 pid:927 token:[] teal Initializing landing_popup_module
#> module "Landing Popup" server function takes no data so "datanames" will be ignored
if (interactive()) {
shinyApp(app2$ui, app2$server)
}