inst/examples/calcite-action-button.R

In calcite: Bindings to the Calcite Design System 'JavaScript' Component Library

library(shiny)
library(shinyjs)
devtools::load_all()

ui <- calcite_shell(
  calcite_action(
    id = "test_action",
    text = "Click me",
    icon = "check",
    text_enabled = TRUE
  ),
  verbatimTextOutput("output")
)

server <- function(input, output, session) {
  observeEvent(input$test_action, {
    shinyjs::logjs("hi")
  })

  output$output <- renderPrint({
    input$test_action
  })
}

shinyApp(ui, server)