activate: set an element as active or inactive
In ardata-fr/dgihesse: Simple 'JavaScript' Interactions in 'shiny' Applications

Description Usage Arguments See Also Examples

View source: R/active.R

activate will set an element as active or inactive. html_set_active will make an element active. html_set_inactive will hide an element inactive.

activate(id, state)

html_set_active(id)

html_set_inactive(id)

`id`	shiny input id
`state`	logical scalar. If state is `TRUE`, element will be set as active, if `FALSE`, element will be set as inactive.

Other javascript functions: ability, click_event, html_class, html_toogle

library(shinytools)

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

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

  server <- function(input, output) {
    observeEvent(input$activate, {
      html_set_active("anybutton")
    })
    observeEvent(input$inactivate, {
      html_set_inactive("anybutton")
    })
  }

  print(shinyApp(ui, server))
}