show_tabler_dropdown: Show a tabler_dropdown on the client

In DivadNojnarg/outstanding-shiny-ui-code: Standalone Code for "Outstanding Shiny User Interfaces"

Description

Show a tabler_dropdown on the client

Usage

show_tabler_dropdown(id, session = getDefaultReactiveDomain())

Arguments

id	Dropdown id.
session	Shiny session

Examples

if (interactive()) {
 ui <- tabler_page(
  tabler_navbar(
    brand_url = "https://preview-dev.tabler.io",
    brand_image = "https://preview-dev.tabler.io/static/logo.svg",
    nav_menu = NULL,
    tabler_dropdown(
      id = "mydropdown",
      title = "Dropdown",
      subtitle = "click me",
      tabler_dropdown_item(
        id = "item1",
        "Show Notification"
      ),
      tabler_dropdown_item(
        "Do nothing"
      )
    )
  ),
  tabler_body(
    tabler_button("show", "Open dropdown", width = "25%"),
    footer = tabler_footer(
      left = "Rstats, 2020",
      right = a(href = "https://www.google.com")
    )
  )
 )
 server <- function(input, output, session) {

   observeEvent(input$show, {
     show_tabler_dropdown("mydropdown")
   })

   observeEvent(input$item1, {
     showNotification(
       "Success",
       type = "message",
       duration = 2,

     )
   })
 }
 shinyApp(ui, server)
}

DivadNojnarg/outstanding-shiny-ui-code documentation built on Nov. 2, 2021, 12:03 p.m.