activate: set an element as active or inactive

In ardata-fr/shinytools: Simple 'JavaScript' Interactions in 'shiny' Applications

Description

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.

Usage

activate(id, state)

html_set_active(id)

html_set_inactive(id)

Arguments

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.

See Also

Other javascript functions: ability, click_event, html_class, html_toogle

Examples

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))
}

ardata-fr/shinytools documentation built on Nov. 15, 2019, 7:53 p.m.