Question

要知道什么时候发光很忙我使用$('html').hasClass('shiny-busy')，我的问题是看起来类似“闪亮忙”只是由用户交互（例如按钮点击）触发。

如果我有一个输出，当我启动闪亮时会直接显示，例如：

ui <- fluidPage(plotOutput("plot"))

server = function(input, output) {
  output$plot <- renderPlot({
    Sys.sleep(5)
    hist(rnorm(100))
  })
})

runApp(list(ui = ui, server = server))

html标签不会有“shine-busy”类。为了表明闪亮正忙，它需要用户交互，例如按钮：

ui <- fluidPage(actionButton("go", "Go"), 
                plotOutput("plot"))

server = function(input, output) {
  output$plot <- renderPlot({
    if (input$go > 0) {
      Sys.sleep(5)
      hist(rnorm(100))
    }
  })
})

runApp(list(ui = ui, server = server))

在我的术语中，在第一种情况下Shiny忙于b / c它还没有显示输出。但它没有“闪亮繁忙”的课程。我想知道此刻闪亮的“忙碌”，而不使用用户互动。

您对我如何实现这一目标有什么想法吗？感谢

如何在没有用户交互的情况下抓住闪亮的东西

0 个答案: