小编coo*_*rmj的帖子

我一直在寻找MapBox GL中的聚类标记(https://www.mapbox.com/mapbox-gl-js/example/cluster/),但我希望这样做有点不同.

从本质上讲,我有一个geojson文件,其中包含我们校园内每栋建筑物(点)的事件数.我想在标记中显示该数字,然后当缩小时,标记会折叠并将该标记的值添加到一起.

我看到的聚类示例只是计算点数,但似乎没有提供聚合属性.这样的事情可行吗？

我有一个包含许多情节的Shiny Dashboard，所有情节都需要花费几秒钟来构建。一旦最后一个生成，它们都将显示。我希望每个图在完成后立即显示。我知道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秒钟。我希望页面花10s来显示plot1，然后再花10s来显示plot2，依此类推。在每个plot函数的底部是否有像UpdatePage（）这样的调用？

在我的页面上，我正在加载动画，以便用户知道正在发生的活动，这使它们在一次加载时更加明显。

我当然可以有一个更简单的页面，但是那样就不会成为仪表盘了。:)