如何在闪亮的等待中显示纺车或忙碌的图标

Question

嘿，我刚刚开始与R和Shiny合作。 试图制作一个显示不同图表的仪表板。 由于需要处理大量数据，因此在点击操作按钮后，图表或图表需要一些时间才能显示，即＆＃34;启动广告系列＆＃39; 无论如何我可以在白色空白处显示一个旋转轮或一个加载图标，而这种延迟发生了吗？ Dashboard with blank space on the right

Answer 1

有一个很棒的shinycssloaders包https://github.com/andrewsali/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)