Landing popup module — landing_popup

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 or shiny.tag.list) with the content of the popup. Passed to ... of shiny::modalDialog. See examples.
buttons: (shiny.tag or shiny.tag.list) Typically a modalButton or actionButton. See examples.

Value

A teal_module (extended with teal_landing_module class) to be used in teal applications.

Examples

app1 <- init(
  data = teal_data(iris = iris),
  modules = modules(
    example_module()
  ),
  landing_popup = landing_popup_module(
    content = "A place for the welcome message or a disclaimer statement.",
    buttons = modalButton("Proceed")
  )
)
#> 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(
    example_module()
  ),
  landing_popup = 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()")
    )
  )
)
#> Initializing landing_popup_module
#> module "Landing Popup" server function takes no data so "datanames" will be ignored

if (interactive()) {
  shinyApp(app2$ui, app2$server)
}