ability: enable or disable an element

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

Description

ability is to be used to enable or disable an element. html_enable and html_disable are shortcut functions.

Usage

ability(id, state)

html_enable(id)

html_disable(id)

Arguments

id	shiny input id
state	logical scalar. If state is TRUE, element will be enabled, if FALSE, element will be disabled.

See Also

Other javascript functions: activate, click_event, html_class, html_toogle

Examples

library(shiny)
library(shinytools)

if (interactive()) {
  ui <- fluidPage(
    load_jstools(),
    fluidRow(
      column(width = 4,
             actionButton(inputId = "able_slider",
                          label = "[slider] enabled/disabled"),
             br(),br(), br(),
             sliderInput( "slider",
                          "A Number:",
                          min = 0, max = 1000, value = 500)
      ),
      column(width = 4,
             actionButton(inputId = "able_select",
                          label = "[list] enabled/disabled"),
             br(),br(), br(),
             selectizeInput("select", "A select input:", 1:5)
      ),
      column(width = 4,
             actionButton(inputId = "able_btn",
                          label = "[btn] enabled/disabled"),
             br(),br(), br(),
             actionButton("btn", "A button", class = "btn-warning")
      )
    )
  )

  server <- function(input, output) {
    observeEvent(input$able_slider, {
      ability("slider", input$able_slider%%2 < 1)
    })
    observeEvent(input$able_btn, {
      ability("btn", input$able_btn%%2 < 1)
    })
    observeEvent(input$able_select, {
      ability("select", input$able_select%%2 < 1)
    })
  }

  print(shinyApp(ui, server))
}

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