r - 以 Shiny 的方式显示 dbplyr 收集进度

Question

我正在写一个 Shiny 的仪表板。要加载数据，我正在使用相当于

    mydata <- reactive({
      in.positions <- isolate(input$positions)
      (db_conn
        %>% tbl('table1')
        %>% filter(position %in% in.positions)
        %>% inner_join(db_conn %>% tbl('table2'), by = 'id')
        %>% collect()
      )
   })

这里 db_conn是 dbPool目的。
问题是有时会有很多数据，加载它需要一些时间。
有什么办法可以监控 collect()的进度吗？ ，理想情况下映射到 Shiny 的进度条？

Answer 1

我已经使用 shinycssloaders 起草了一个示例仪表板.要点是将您的 UI 元素通过管道传输到 withSpinner功能。希望这可以帮助。

library(shiny)
library(shinycssloaders)
library(ggplot2)
library(magrittr)

ui <- fluidPage(  
  sidebarPanel(
    selectInput('n_datapoints', label = 'how many?',
                choices=c(1000, 10000, 1000000))
  ),

  mainPanel(
    plotOutput('plot') %>%
      # Adds a dark red spinner while waiting for the plot
      withSpinner(color='#8B0000')
  )
)

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

  # Some long-running data retrieval
  data <- reactive({
    rnorm(input$n_datapoints)
  })

  # Get the plot
  output$plot <- renderPlot(
    data() %>% 
      plot()
  )
}

shinyApp(ui, server)