如何在闪亮中等待时显示旋转滚轮或忙碌图标

本文介绍了如何在闪亮中等待时显示旋转滚轮或忙碌图标的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

嘿，我刚刚开始使用R和SHINY。试图制作一个可以显示不同图表的仪表板。由于有大量数据需要处理，因此在单击操作按钮(即"Launch Campaign")后，曲线图或图表需要一段时间才能显示在此延迟发生时，是否可以在空白区域显示旋转轮或装载图标？Dashboard with blank space on the right

推荐答案

有一个很棒的shinycssloaders包https://github.com/andrewsali/shinycssloaders，现在这里维护了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)

这篇关于如何在闪亮中等待时显示旋转滚轮或忙碌图标的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！