html_class: Add or remove a class from an HTML element
In ardata-fr/shinytools: Simple 'JavaScript' Interactions in 'shiny' Applications

Description Usage Arguments See Also Examples

View source: R/class.R

html_class will add or remove a class from an HTML element. html_addclass and html_unclass are shortcut functions.

html_class(id, classname, add = TRUE)

html_unclass(id, classname)

html_addclass(id, classname)

`id`	shiny input id
`classname`	class name
`add`	if TRUE, class will be added, if FALSE class will be deleted

Other javascript functions: ability, activate, click_event, html_toogle

library(shinytools)
classes <- c("primary", "secondary", "success",
             "danger", "warning", "info")

if (interactive()) {
  options(device.ask.default = FALSE)

  ui <- fluidPage(
    titlePanel("Hello dghiesse!"),
    load_jstools(),
    sidebarLayout(
      sidebarPanel(
        selectInput("class", "Variable:", classes)
      ),
      mainPanel(
        actionButton("anybutton", "watch this button",
                     class = "btn-info")
      )
    )
  )

  server <- function(input, output) {
    observeEvent(input$class, {
      for(i in classes){
        html_unclass("anybutton", paste0("btn-", i))
      }
      html_addclass("anybutton", paste0("btn-", input$class))
    })
  }

  print(shinyApp(ui, server))
}