Skip to contents

[Experimental] This module consists of a button that once clicked pops up a modal window with verbatim-styled text.

Usage

verbatim_popup_ui(id, button_label, type = c("button", "link"), ...)

verbatim_popup_srv(
  id,
  verbatim_content,
  title,
  style = FALSE,
  disabled = shiny::reactiveVal(FALSE)
)

Arguments

id

(character(1)) the shiny id

button_label

(character(1)) the text printed on the button

type

(character(1)) specifying whether to use [shiny::actionButton()] or [shiny::actionLink()].

...

additional arguments to [shiny::actionButton()](or [shiny::actionLink()]).

verbatim_content

(character, expression, condition or reactive(1) holding any of the above) the content to show in the popup modal window

title

(character(1)) the title of the modal window

style

(logical(1)) whether to style the verbatim_content using styler::style_text. If verbatim_content is a condition or reactive holding condition then this argument is ignored

disabled

(reactive(1)) the shiny reactive value holding a logical. The popup button is disabled when the flag is TRUE and enabled otherwise.

Value

the UI function returns a shiny.tag.list object

Examples

ui <- shiny::fluidPage(verbatim_popup_ui("my_id", button_label = "Open popup"))
srv <- function(input, output) {
  verbatim_popup_srv(
    "my_id",
    "if (TRUE) { print('Popups are the best') }",
    title = "My custom title",
    style = TRUE
  )
}
if (interactive()) shiny::shinyApp(ui, srv)