Question

我有一个有许多情节的闪亮仪表板，所有这些都需要几秒钟才能构建。一旦最后一个构建，它们都会显示。我希望每个情节在完成后立即显示。我理解R是单线程的，但似乎必须有一种方法“将执行返回到显示代码”或类似的东西。

此代码演示了此问题：

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，然后额外的10s来显示plot2等。是否有一个类似UpdatePage（）的调用可以在每个绘图函数的底部调用？

在我的页面上，我已经加载了正在运行的动画，因此用户知道正在发生活动，这使得它们在一次加载时更加明显。

当然，我可以有一个更简单的页面，但它不会是一个仪表板。：）

Answer 1

您可以使用reactiveTimer()定期刷新页面。

您可以将地块保存在list个地块中，以便在每次刷新时立即打印。

我不得不重新排序renderPlot函数，因此step迭代器一次只渲染一个图

此外，我选择不立即开始第一次渲染以绘制“加载”图。

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中构建的情节而不是等待所有情节？

1 个答案: