ользую кусокjavascript из этого вопроса:ТАК

Это работает для кнопок, но я также хотел бы отключить такие вещи, какsliderInput, selectInput а такжеtextInput также.

Я пытался заменить «кнопку» на «вход», который отключаетtextinput поля. Мне интересно, есть ли способ отключить все элементы за 1 раз.

Большая проблема заключается в следующем: при открытииdropdownbuttonКнопка закрытия обычно должна удалитьmodal dialog в случае, если тег javascript удален из демонстрационного приложения ниже. Однако, когда скрипт находится в приложении, кнопка закрытия по какой-то причине больше не работает. Он по-прежнему печатает текстовую команду, то есть она соблюдается, но модальное окно не закрывается. Другая кнопка в диалоге по-прежнему работает нормально.

Приложение:

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)