Estou usando um pedaço dejavascript desta pergunta:TÃO

Funciona para botões, mas eu também gostaria de desativar coisas comosliderInput, selectInput etextInput também.

Tentei substituir o 'botão' por 'entrada', que desabilita otextinput Campos. Eu estou querendo saber se existe uma maneira de desativar todos os elementos de uma só vez.

O maior problema é o seguinte: Quando você abre odropdownbutton, o botão fechar normalmente deve remover omodal dialog caso a tag javascript seja removida do aplicativo de demonstração abaixo. No entanto, quando o script está no aplicativo, o botão Fechar não funciona mais por algum motivo. Ele ainda imprime o comando de texto, o que significa que é observado, mas o modal não fecha. O outro botão na caixa de diálogo ainda funciona normalmente.

Aplicativo:

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  h3('Disable buttons while running'),
  actionButton('btn_run','Run long process'),
  hr(),
  h3('Inputs'),
  actionButton('btn1','Button 1'),
  hr(),
  textInput('text1', 'Text1',"my text:"),
  hr(),
  selectInput('select1', 'Selectinput', choices = c('A', 'B', 'C'), selected = 'A'),
  hr(),
  h5('Dropdown'),
  dropdownButton(inputId = "MyDropDown",
                 h3("This is a dropdown"),
                 actionButton('btn_run2','Run other long process'),
                 fluidRow(actionButton( "CloseDropDown", "Close"), style = "float: right; margin-right:10px"),
                 icon = icon("tasks"),
                 tooltip = tooltipOptions(title = "Click to open"), width = "500px"),
  hr(),
  sliderInput('slid3','Slider 1',min=0,max=1,value=0.5),


tags$script(HTML("$(document).on('shiny:busy', function() {
  var inputs = document.getElementsByTagName('button');
console.log(inputs);
for (var i = 0; i < inputs.length; i++) {
inputs[i].disabled = true;
}
});

$(document).on('shiny:idle', function() {
var inputs = document.getElementsByTagName('button');
console.log(inputs);
for (var i = 0; i < inputs.length; i++) {
inputs[i].disabled = false;
}
})" ))
)

server <- function(input, output, session){

  observeEvent(input$btn_run,{
    Sys.sleep(5)
  })


  observeEvent(input$btn_run2,{
    Sys.sleep(5)
  })

  observeEvent(input$CloseDropDown, {print('closing?')
    toggleDropdownButton(inputId = 'MyDropDown') })

}

shinyApp(ui = ui, server = server)