1

问题

我有一个 data.frame，其中包含一个名为“icon”的列，其字符格式的链接与“ http://i.imgur.com/UxVFMcQ.png ”完全一样。

我将列名输入到我闪亮的应用程序中的 google_map_update 调用中：

output$map <- renderGoogle_map({
      google_map(
        location = c(43.761539, -79.411079),
        key = api_key,
        scale_control = F,
        street_view_control = F
      ) 
    })

  observeEvent(
    input$updateData,  # a button that updates the data 
    {              

      googleway::google_map_update(map_id = "map") %>%
        clear_markers() %>%
        googleway::add_markers(
          lat = "lat.x",
          lon = "long.x",
          marker_icon = "icon", 
          data = data %>% filter(gender %in% input$gender)
     }
  )
)

但是，当我绘制点时，什么都没有显示。查看 Chrome 控制台，我看到错误 404，找不到 url 错误。我仍然可以看到聚集点（带有数字的黄色、红色和蓝色信号），但看不到单个标记。

我尝试了以下

  1. 不包括 https:// 中的 s
  2. 而是引用本地文件，以两种方式调用它：绝对和相对
  3. 使用与其他网站完全不同的链接 ( http://maps.google.com/mapfiles/kml/shapes/parking_lot_maps.png )
  4. 看着 SO，但大多数谷歌地图标记问题都在 Javascript 中
  5. 当使用它不发光时，自定义标记起作用：
google_map(
  location = c(43.761539, -79.411079),
) %>%
googleway::add_markers(
  data = data,
  marker_icon = "icon",
  lat = "lat.x",
  lon = "long.x",
  cluster = T
)
4

1 回答 1

1

我无法复制您的错误。这是一个正在更新标记但保留icon值的工作示例

library(shiny)
library(googleway)

ui <- fluidPage(
  google_mapOutput(outputId = "map", height = "800px"),
  actionButton(inputId = "btn", label = "some people")
)

server <- function(input, output) {

  tram_stops$icon <- "http://i.imgur.com/UxVFMcQ.png"
  # set_key("YOUR_GOOGLE_API_KEY)

  output$map <- renderGoogle_map({
    google_map(data = tram_stops) %>%
      add_markers(lat = "stop_lat", lon = "stop_lon", marker_icon = "icon")
  })

  observeEvent(input$btn, {

    myRow <- sample(1:nrow(tram_stops), 10)

    google_map_update(map_id = "map") %>%
      clear_markers() %>%
      add_markers(data = tram_stops[myRow, ], marker_icon = "icon")
  })
}

shinyApp(ui, server)

这将打开自定义标记的地图

在此处输入图像描述

然后按下some people按钮采样十行数据，然后用于google_map_update更新现有地图

在此处输入图像描述

在此处输入图像描述

devtools::session_info()
Session info -------------------------------------------------------------------------------------------------
 setting  value                       
 version  R version 3.4.4 (2018-03-15)
 system   x86_64, darwin15.6.0        
 ui       RStudio (1.1.447)           
 language (EN)                        
 collate  en_AU.UTF-8                 
 tz       Australia/Melbourne         
 date     2018-05-03                  

Packages -----------------------------------------------------------------------------------------------------
 package     * version date       source                          
 base        * 3.4.4   2018-03-15 local                           
 ...<snip>...                
 googleway   * 2.6     2018-04-29 local                           
 shiny       * 1.0.5   2017-08-23 cran (@1.0.5)
于 2018-05-02T22:06:05.490 回答