Question

在一个闪亮的应用程序内我想在应用程序运行时禁用所有按钮。我有很多动作按钮，依赖项和一些renderui的东西，所以我认为使用shinyjs：disable（按钮）是至关重要的，并且非常不干净40多个按钮。

在闪亮的应用程序繁忙时，是否有一种简单的方法可以禁用按钮（或所有按钮/滑块），例如下面我的示例应用程序的“loading ...”元素的情况？

还是有另一种方法可以禁用所有按钮，或者在“loading ...”文本指示的长计算运行时使它们不可见？

在下面的示例中，我想在应用程序繁忙时禁用操作按钮（显示“正在加载...”文本）。我知道在这个例子中我可以使用shinyjs但我更喜欢整个应用程序繁忙时的解决方案。任何帮助都非常受欢迎，我对html，css和java的东西都是全新的，所以如果有人知道解决方案，那么简短的解释会非常棒！

非常感谢提前！

library(shiny)


server <- function(input, output) {
  output$moreControls <- renderUI({if(input$obs!=10001) actionButton("button", "OK!")})
  observeEvent(input$button, {
  output$distPlot <- renderPlot({
    Sys.sleep(5)
    hist(rnorm(isolate(input$obs)), col = 'darkgray', border = 'white')
  })})
}

ui <- fluidPage(tags$head(tags$style(type="text/css", "
                                                                    #loadmessage {
                                     position: fixed;
                                     top: 95%;
                                     left: 0px;
                                     width: 100%;
                                     padding: 5px 0px 5px 0px;
                                     text-align: center;
                                     font-weight: bold;
                                     font-size: 100%;
                                     color: #000000;
                                     background-color: #CCFF66;
                                     z-index: 105;
                                     }
                                     ")),
                conditionalPanel(condition="$('html').hasClass('shiny-busy')",
                                 tags$div("Loading...",id="loadmessage")),
  sidebarLayout( sidebarPanel(

    sliderInput("obs", "Number of observations:", min = 10000, max = 100000, value = 10001,step=1000),
   uiOutput("moreControls")

    ),
    mainPanel(plotOutput("distPlot"))
  )
)

shinyApp(ui = ui, server = server)

Answer 1

我不熟悉你所描述的简单方法，但当然这并不意味着没有;）这里有一个小的解决方法，我相信符合你的要求，并保持你的代码相对干净。我们可以使用reactiveValuesToList(input)来获取输入列表，然后编写一个禁用或启用它们的函数。我们还可以决定仅通过基于属性对列表进行子集来切换button输入。

下面的工作示例，希望这有帮助！

library(shiny)
library(shinyjs)

ui <- fluidPage(
  h3('Disable all inputs while running'),
  actionButton('btn_all_inputs','Run long process'),
  h3('Disable only buttons while running'),
  actionButton('btn_only_buttons','Run long process'),
  hr(),
  h3('Inputs'),
  textInput('text1', 'Text1',"my text:"),
  actionButton('btn1','Button 1'),
  actionButton('btn2','Button 2'),
  actionButton('btn3','Button 3'),
  sliderInput('slid3','Slider 1',min=0,max=1,value=0.5),
  useShinyjs()
)


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

  # Function to toggle input elements. 
  # input_list: List of inputs, reactiveValuesToList(input)
  # enable_inputs: Enable or disable inputs?
  # Only buttons: Toggle all inputs, or only buttons?
  toggle_inputs <- function(input_list,enable_inputs=T,only_buttons=FALSE)
  {
    # Subset if only_buttons is TRUE.
    if(only_buttons){
      buttons <- which(sapply(input_list,function(x) {any(grepl('Button',attr(x,"class")))}))
      input_list = input_list[buttons]
    }

    # Toggle elements
    for(x in names(input_list))
      if(enable_inputs){
        shinyjs::enable(x)} else {
          shinyjs::disable(x) }
  }

  observeEvent(input$btn_all_inputs,{
    input_list <- reactiveValuesToList(input)
    toggle_inputs(input_list,F,F)
    Sys.sleep(5)
    toggle_inputs(input_list,T,F)
  })

  observeEvent(input$btn_only_buttons,{
    input_list <- reactiveValuesToList(input)
    toggle_inputs(input_list,F,T)
    Sys.sleep(5)
    toggle_inputs(input_list,T,T)
  })
}

shinyApp(ui = ui, server = server)

替代解决方案

此解决方案使用自定义JavaScript根据Shiny是忙还是空闲来启用/禁用所有输入。因此，当Shiny忙碌时，这将禁用您的输入。我现在将脚本设置为禁用所有按钮，但您可以通过向document.getElementsByTagName()添加更多选项来轻松扩展它。希望这更接近你的想法。

library(shiny)

ui <- fluidPage(
  h3('Disable buttons while running'),
  actionButton('btn_run','Run long process'),
  hr(),
  h3('Inputs'),
  textInput('text1', 'Text1',"my text:"),
  actionButton('btn1','Button 1'),
  sliderInput('slid3','Slider 1',min=0,max=1,value=0.5),
  includeScript('script.js')
)

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

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

shinyApp(ui = ui, server = server)

的script.js

$(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;
}
});

如何在闪亮繁忙时显示加载文本，如何禁用所有操作按钮

1 个答案: