R: Examples for 'shinyjs::disabled'

### ** Examples

if (interactive()) {
  library(shiny)
  shinyApp(
    ui = fluidPage(
      useShinyjs(),  # Set up shinyjs
      actionButton("btn", "Click me"),
      disabled(
        textInput("element", NULL, "I was born disabled")
      )
    ),
    server = function(input, output) {
      observeEvent(input$btn, {
        enable("element")
      })
    }
  )
}

Attaching package: 'shiny'

The following object is masked from 'package:shinyjs':

    runExample

Error in loadNamespace(name): there is no package called 'webshot'

library(shiny)
disabled(numericInput("num", NULL, 5), dateInput("date", NULL))

[[1]]
<div class="form-group shiny-input-container shinyjs-disabled">
  <label class="control-label shiny-label-null" for="num"></label>
  <input id="num" type="number" class="form-control" value="5"/>
</div>

[[2]]
<div class="shiny-date-input form-group shiny-input-container shinyjs-disabled" id="date">
  <label class="control-label shiny-label-null" for="date"></label>
  <input type="text" class="form-control" data-date-language="en" data-date-week-start="0" data-date-format="yyyy-mm-dd" data-date-start-view="month" data-date-autoclose="true" data-date-dates-disabled="null" data-date-days-of-week-disabled="null"/>
</div>

Examples for 'shinyjs::disabled'

Initialize a Shiny input as disabled