inst/examples/vignettes-demos/box-dropdown/app.R

In hiplot/bs4Dash2: A 'Bootstrap 4' Version of 'shinydashboard'

library(shiny)
library(bs4Dash)

shinyApp(
  ui = dashboardPage(
    title = "Box Dropdown",
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
      box(
        title = "Closable Box with dropdown", 
        width = 12,
        status = "warning", 
        solidHeader = FALSE, 
        collapsible = TRUE,
        dropdownMenu = boxDropdown(
          icon = icon("wrench", class = "fa-2x"),
          boxDropdownItem("Click me", id = "dropdownItem", icon = icon("heart")),
          boxDropdownItem("item 2", href = "https://www.google.com/"),
          dropdownDivider(),
          boxDropdownItem("item 3", icon = icon("th"))
        ),
        "My box"
      )
    )
  ),
  server = function(input, output) {
    observeEvent(input$dropdownItem, {
      showNotification("Hello", duration = 1, type = "error")
    })
  }
)