toggleSwitch_dsfr.Rd
toggleSwitch_dsfr
toggleSwitch_dsfr(inputId, label, activate = "", deactivate = "")
html
if (interactive()) {
library(shiny)
ui <- fluidPage_dsfr(
toggleSwitch_dsfr(inputId = "test", label = "test")
)
server <- function(input, output, session) {
observeEvent(input$test, {
message(input$test)
message("coucou")
})
}
shinyApp(ui, server)
}