シャイニーで待機中にスピニングホイールまたはビジーアイコンを表示する方法

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)