inst/builtin-templates/bslib-bare/modules/card/R/card-tools.R

In shidashi: A Shiny Dashboard Template Modular System with Chat Bot Support

ui_card_tools <- function() {
  shiny::tagList(
    shiny::column( width = 2L, card_with_code(
      card(
        class_body = "height-300",
        resizable = TRUE,
        title = "Badges",
        tools = list(
          as_badge("New|badge-info"),
          as_badge("3|badge-warning")
        ),
        div(
          class = "padding-20",
          p(
            "Add badges to the top-right corner. ",
            "Use \"|\" to indicate the badge classes; ",
            "for example: \"badge-info\", \"badge-warning\"..."),
          hr(),
          p("Use `resizable = TRUE` to make card resizable.")
        )
      )
    )),
    shiny::column( width = 3L, card_with_code(
      card(
        title = "Default Tools",
        class_body = "height-300",
        resizable = TRUE,
        tools = list(
          card_tool(widget = "link", href = "https://github.com/dipterix"),
          card_tool(widget = "collapse"),
          card_tool(widget = "maximize")
        ),
        plotOutput(ns("card_defaulttool_plot"), height = "100%")
      )
    )),
    shiny::column( width = 4L, card_with_code(
      card(
        title = "Custom Tools",
        class_body = "min-height-300",
        tools = list(
          card_tool(inputId = ns("card_tool_modal"), widget = "custom",
                    title = "Show alert", icon = "bell")
        ),
        "Click the bell icon (",
        as_icon("bell"),
        ") at the top-right corner to show a pop-up alert", br(),
        "The reaction requires server-side shiny observer. ",
        "Go to \"server.R\", add:",
        html_highlight_code(
          observeEvent(input$card_tool_modal, {
            shiny::showModal(shiny::modalDialog(
              "Click to dismiss",
              title = "Alert", easyClose = TRUE
            ))
          }), width.cutoff = 15L, args.newline = FALSE,
          hover = "overflow-auto"
        )
      )
    )),
    shiny::column( width = 3L, card_with_code(
      card(
        title = "Collapsed",
        start_collapsed = TRUE,
        class_body = "height-300 no-padding",
        tools = list(
          as_badge("30 messages |badge-primary"),
          card_tool(inputId = ns("card_tool_rerun"), widget = "custom",
                    title = "Re-run", icon = "random"),
          card_tool(widget = "collapse", start_collapsed = TRUE)
        ),
        p(
          style = "padding: 10px; margin: 0;",
          "Click the shuffle (", as_icon("random"), ") button."
        ),
        plotOutput(ns("card_tool_plot"), height = "254px")
      )
    )),
  )
}