如何在 Shiny 中等待时显示 Spinning Wheel 或 Busy Icon

Question

嘿，我刚刚开始使用 R 和 Shiny。试图制作一个显示不同图表的仪表板。由于要处理大量数据，因此在单击操作按钮（即“启动广告系列”）后，绘图或图表需要一些时间才能显示无论如何我可以在白色空白 space 中显示纺车或加载图标，同时发生这种延迟？ Dashboard with blank space on the right

Answer 1

有很棒的 shinycssloaders 软件包 https://github.com/andrewsali/shinycssloaders, now maintained here https://github.com/daattali/shinycssloaders，它可以满足您的需求：

library(shiny)
library(dplyr)
library(shinycssloaders)

ui <- fluidPage(
  
  actionButton("plot","plot"),
  plotOutput("Test") %>% withSpinner(color="#0dc5c1")
)



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

  data <- eventReactive(input$plot,{
    rnorm(1:100000)
  })
  
  output$Test <- renderPlot({
    plot(data())
  })
}

shinyApp(ui = ui, server = server)

如何在 Shiny 中等待时显示 Spinning Wheel 或 Busy Icon

How to show Spinning Wheel or Busy Icon while waiting in Shiny

r

progress

rstudio

shiny

shinydashboard