Shiny环境中快速切换deckgl图层可见性的最优实现方案问询

你的核心问题是每次切换图层时都重新添加整个图层并传递数据，大数据场景下重复传输数据必然导致卡顿。正确的做法是一次性加载所有图层，之后仅通过代理修改图层的可见性属性，完全避免重复传递数据的开销。

解决方案代码 #

library(shiny)
library(deckgl)
library(graphics)
library(data.table)

n_points = 2000
testdf <- sf_bike_parking[1:n_points,]
testdf$ID <- 1:n_points-1
testdf$neighborhood <- ((testdf$ID - (testdf$ID %% 5))/ 5) + 1 # Groups of 5 from adjacent rows

polys = list()
for(i in 1:(n_points/5)){
  tmp = list(x=testdf[testdf$neighborhood == i,]$lng,
             y=testdf[testdf$neighborhood == i,]$lat) 
  polys[[i]] = data.table::transpose(tmp)[chull(tmp)]
  
}

polydf = data.frame(neighborhood = 1:(n_points/5))
polydf$geo = polys

ui <- fluidPage(
  radioButtons(
    "AddPoly",
    "Show Polygons",
    choices = c("ON", "OFF"),
    selected = "ON"),
  deckglOutput("mymap"))

server <- function(input, output, session) {
  # 初始渲染：一次性加载所有图层，设置多边形图层的初始可见性
  output$mymap <- renderDeckgl({
    deckgl(
      latitude = mean(testdf$lat),
      longitude = mean(testdf$lng),
      zoom=4
    ) %>%
      add_scatterplot_layer(
        id="Station Layer",
        data = testdf,
        getPosition = ~lng + lat,
        getColor=c(255,0,0,255),
        stroked=TRUE,
        radiusMinPixels = 5,
        radiusScale = 10
      ) %>% 
      add_polygon_layer( 
        id= "Neighborhood layer",
        data= polydf,
        getPolygon = ~geo,
        getFillColor = c(0,0,255,255),
        getLineColor = c(255,255,255,255),
        filled=TRUE,
        stroked=TRUE,
        wireframe=TRUE,
        lineWidthMinPixels = 4,
        # 绑定初始可见性
        visible = input$AddPoly == "ON"
      ) %>% 
      add_basemap()
  })
  
  # 仅修改图层可见性，不重新加载数据
  observeEvent(input$AddPoly, {
    deckgl_proxy('mymap') %>% 
      set_layer_visibility(
        id = "Neighborhood layer", 
        visible = input$AddPoly == "ON"
      ) %>%
      update_deckgl()
  })
}
shinyApp(ui, server)

关键优化点 #

• 一次性加载所有图层：初始渲染时就把散点和多边形图层都加载完成，数据只传递一次，后续不再重复传输。
• 直接修改可见性属性：通过deckgl_proxy调用set_layer_visibility，仅向前端发送图层可见性的修改指令，完全避免了重新传递大数据的开销。
• 移除冗余代码：删除了原代码中每次切换都重复添加散点图层和底图的逻辑，这些图层不需要频繁修改，只需要初始化一次。

额外性能建议 #

• 预处理数据：如果多边形数据量极大，可以提前将其转换为GeoJSON格式或者sf对象，deckgl对这类格式的解析效率更高。
• 图层参数复用：把图层的固定参数（比如颜色、线宽）提前定义为变量，避免重复书写，也方便后续统一修改。
• 避免不必要的重渲染：确保只有当input$AddPoly变化时才触发更新，不要绑定其他无关的输入。

内容的提问来源于stack exchange，提问作者LSpole