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

Question

嘿,我刚刚开始与R和Shiny合作.试图制作一个显示不同图表的仪表板.由于需要处理大量数据,因此在点击操作按钮后,图表或图表需要一些时间才能显示,即"启动广告系列"无论如何我可以在白色空白处显示旋转轮或加载图标,同时这种延迟发生了吗？右侧有空白的仪表板

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)