我有一个带有许多情节的闪亮仪表板，所有这些都需要几秒钟的时间来构建.一旦最后一个构建，它们都会显示.相反，我希望每个情节在完成后立即显示.我知道 R 是单线程的，但似乎必须有一种方法可以将执行返回到显示代码"或类似的东西.
I have a Shiny Dashboard with many plots, all of which take multiple seconds to build. Once the last one builds, they all display. I would like instead for each plot to display as soon as it completes. I understand R is single-threaded, but it seems as though there must be a way to "return execution to the display code" or something like that.
这段代码演示了这个问题:
This code demonstrates the issue:
library(shiny) ui <- fluidPage( title = "Page loading test" , h1("Page loading test") , plotOutput("plot1") , plotOutput("plot2") , plotOutput("plot3") , plotOutput("plot4") ) server <- function(input, output) { output$plot1 <- renderPlot({ Sys.sleep(10) plot(rnorm(50)) }) output$plot2 <- renderPlot({ Sys.sleep(10) plot(rnorm(50)) }) output$plot3 <- renderPlot({ Sys.sleep(10) plot(rnorm(50)) }) output$plot4 <- renderPlot({ Sys.sleep(10) plot(rnorm(50)) }) } shinyApp(ui = ui, server = server)睡眠只是为了模拟缓慢的执行.
页面显示需要 40 秒.我希望页面花 10 秒来显示 plot1，然后再花 10 秒来显示 plot2，等等.是否有像 UpdatePage() 这样的调用可以在每个绘图函数的底部调用?
It takes 40s for the page to display. I would like the page to take 10s to display plot1, then an additional 10s to display plot2, etc. Is there a call like UpdatePage() that can be called at the bottom of each plot function?
在我的页面上，我正在运行加载动画，因此用户知道活动正在发生，这使得它们在一次加载时更加明显.
On my page, I have loading animations running so the user is aware activity is occurring, which makes it even more obvious when they load at once.
当然，我可以有一个更简单的页面，但它不会是仪表板.:)
I could, of course, have a simpler page, but then it wouldn't be a dashboard. :)
推荐答案你可以使用reactiveTimer()来定时刷新你的页面.
You can use reactiveTimer() to refresh your page regularly.
您可以将绘图保存在绘图的 list 中，以便在每次刷新时立即打印它们.
And you can save your plots in a list of plots to print them immediately at each refresh.
我不得不重新排序 renderPlot 函数，以便 step 迭代器一次只渲染一个绘图
I had to reorder the renderPlot functions so the step iterator only renders one plot at a time
我还选择不立即开始第一次渲染来绘制加载"图.
Also I chose not to start the first render right away to plot "Loading" plots.
library(shiny) ui <- fluidPage( title = "Page loading test" , h1("Page loading test") , plotOutput("plot1") , plotOutput("plot2") , plotOutput("plot3") , plotOutput("plot4") ) # Loading plot plot(-1:1, -1:1, type = "n", xlab = "", ylab = "") text(0,0, "Loading",cex = 5) loading <- recordPlot() plotlist <- vector("list",4) step <- 0 # which plot should be rendered next server <- function(input, output, session) { autoInvalidate <- reactiveTimer(10, session) output$plot4 <- renderPlot({autoInvalidate(); if(step>4){plotlist[[4]]} else if(step==4){step <<- step+1 print("rendering step 4") Sys.sleep(10) plotlist[[4]] <<- {plot(rnorm(50));recordPlot()}} else loading }) output$plot3 <- renderPlot({autoInvalidate(); if(step>3){plotlist[[3]]} else if(step==3){step <<- step+1 print("rendering step 3") Sys.sleep(10) plotlist[[3]] <<- {plot(rnorm(50));recordPlot()}} else loading }) output$plot2 <- renderPlot({autoInvalidate(); if(step>2){plotlist[[2]]} else if(step==2){step <<- step+1 print("rendering step 2") Sys.sleep(10) plotlist[[2]] <<- {plot(rnorm(50));recordPlot()}} else loading }) output$plot1 <- renderPlot({autoInvalidate(); if(step>1){plotlist[[1]]} else if(step==1){step <<- step+1 print("rendering step 1") Sys.sleep(10) plotlist[[1]] <<- {plot(rnorm(50));recordPlot()}} else {step <<-1;loading} }) } shinyApp(ui = ui, server = server)更多推荐
有没有一种方法可以显示在 Shiny 中构建的地块,而不是等待所有地块?
发布评论