我开发了一个Shiny-app，我利用传单包在地理背景上绘制一个大的nr点（~25.000）。当我从R-studio启动应用程序时，一切都运行良好。 在同一台服务器上，我运行了一个闪亮的服务器。我在这台服务器上删除了几个应用程序而没有任何问题。我在闪亮服务器上对应用程序进行deployd以使其可供最终用户使用。
问题
在 shiny-server 上，看起来应用程序在处理标记数量方面存在问题（~25.000）。该应用程序暂停，我无法执行任何操作，但重新启动应用。点数较少（<10.000），没有问题
我无法在其他任何地方找到这个问题。
关于问题是什么以及如何解决问题的任何想法？
这是我用来测试问题的代码
shinyServer(function(input, output) {
# Deel Interactive Map
plot_data <- reactive({
columns <- c("lng",
"lat",
"perc_gtv");
dt_installaties[1:input$nr_points,
columns,
with=FALSE];
})
output$map_branche <- renderLeaflet({
leaflet() %>%
setView(lng = 5.5,
lat = 52.5,
zoom = 8) %>%
addProviderTiles("OpenStreetMap.HOT")
})
# Observer that changes the markers as the nr of points is
# being changed
observe({
pal <- colorBin(palette = c("red","green"),
domain = c(0,200),
bins = 7)
leafletProxy("map_branche",
data = plot_data()) %>%
clearMarkers() %>%
addCircleMarkers(
lng = ~lng,
lat = ~lat,
color = ~pal(perc_gtv),
fillOpacity = 0.9)
})
})
shinyUI(
fluidPage(
fluidRow(
numericInput(
"nr_points",
label = h4("Points to plot"),
value = 5000,
min = 1,
max = nrow(dt_installaties)
)
),
mainPanel(
leafletOutput("map_branche")
)
)
)
我的配置