1

使用带有 Shiny 的 googleway R 包并使用 google_map_update 和 update_heatmap 更新地图。

是否可以在调用 google_map_update 期间保持相同的缩放级别和位置 - 它当前会在点更改坐标时自动缩小和平移，这很令人头疼 - 可以关闭吗？

下面的代码来自链接，为滑块打开了自动化。放大地图，然后制作动画，您将看到自动缩放和平移发生。

library(shiny)
library(googleway)

ui <- fluidPage(
  sliderInput(inputId = "sample", label = "sample", min = 1, max = 10,
              step = 1, value = 10, animate = TRUE),
  google_mapOutput(outputId = "map")
)

server <- function(input, output){

  map_key <- ''

  set.seed(20170417)
  df <- tram_route[sample(1:nrow(tram_route), size = 10 * 100, replace = T), ]

  output$map <- renderGoogle_map({
    google_map(key = map_key) %>%
      add_heatmap(data = df, lat = "shape_pt_lat", lon = "shape_pt_lon",
                  option_radius = 0.001)
  })

  observeEvent(input$sample,{

    df <- tram_route[sample(1:nrow(tram_route), size = input$sample * 100, replace = T), ]

    google_map_update(map_id = "map") %>%
      update_heatmap(data = df, lat = "shape_pt_lat", lon = "shape_pt_lon")
  })
}

shinyApp(ui, server)
4

1 回答 1

2

当然！

利用update_map_view = FALSE

文档

?update_heatmap

update_map_view - 逻辑指定地图是否应根据形状重新居中

例子

google_map_update(map_id = "map") %>%
  update_heatmap(
    data = df
    , lat = "shape_pt_lat"
    , lon = "shape_pt_lon"
    , update_map_view = F
  )

事实上，我现在建议始终使用update_map_view = FALSE它，因为它更节省内存（对于浏览器），因为您不会不断更新地图“边界”的数组。但我还没有在任何地方正式记录这一点。

于 2018-07-31T21:57:21.427 回答