default_disabled: add disabled tag to an HTML element.
In ardata-fr/shinytools: Simple 'JavaScript' Interactions in 'shiny' Applications

Description Usage Arguments Examples

View source: R/ability.R

The function is to be used to disable an element when created.

1	default_disabled(x)

`x`	html element

library(shinytools)

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

  ui <- fluidPage(
    titlePanel("Hello dghiesse!"),
    load_jstools(),
    sidebarLayout(
      sidebarPanel(
        default_disabled(actionButton("dosomething", "don't click"))
      ),
      mainPanel(
        plotOutput("distPlot")
      )
    )
  )

  server <- function(input, output) {
    output$distPlot <- renderPlot({
      hist(rnorm(50))
    })
  }

  print(shinyApp(ui, server))
}