html_toogle: Display or hide an element

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

Description

html_toogle will display an element if hidden or hide it if visible. html_set_visible will make an element visible. html_set_hidden will hide an element.

Usage

html_toogle(id, protect_id = FALSE)

html_set_visible(id, protect_id = FALSE)

html_set_hidden(id, protect_id = FALSE)

Arguments

id	shiny input id
protect_id	wether to process shiny input id with function session$ns() or not.

See Also

Other javascript functions: ability, activate, click_event, html_class

Examples

library(shinytools)

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

  ui <- fluidPage(
    titlePanel("Hello dghiesse!"),
    load_jstools(),
    sidebarLayout(
      sidebarPanel(
        sliderInput( "obs",
          "Number of observations:",
          min = 0, max = 1000, value = 500),
        actionButton("toogle", "toogle"),
        actionButton("set_visible", "show"),
        actionButton("set_hidden", "hide")
      ),
      mainPanel(
        plotOutput("distPlot")
      )
    )
  )

  server <- function(input, output) {
    output$distPlot <- renderPlot({
      hist(rnorm(input$obs))
    })
    observeEvent(input$toogle, {
      html_toogle("distPlot")
    })
    observeEvent(input$set_visible, {
      html_set_visible("distPlot")
    })
    observeEvent(input$set_hidden, {
      html_set_hidden("distPlot")
    })
  }

  print(shinyApp(ui, server))
}

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