带有闪亮的 R Leaflet 中的图标未加载（空图像）

[R-3.4.3 64 位、RStudio、shinydashboard_0.6.1、shiny_1.0.5、leaflet.extras_0.2、Chrome]

我正在制作在 R/Leaflet 中使用 Shiny 的图标，我得到的所有内容如下，但我不知道为什么：

这是使用玩具示例来自这里 http://rstudio.github.io/leaflet/markers.html:

oceanIcons <- iconList(
  ship = makeIcon("ferry-18.png", "[email protected] /cdn-cgi/l/email-protection", 18, 18),
  pirate = makeIcon("danger-24.png", "[email protected] /cdn-cgi/l/email-protection", 24, 24)
)

# Some fake data
df <- sp::SpatialPointsDataFrame(
  cbind(
    (runif(20) - .5) * 10 - 90.620130,  # lng
    (runif(20) - .5) * 3.8 + 25.638077  # lat
  ),
  data.frame(type = factor(
    ifelse(runif(20) > 0.75, "pirate", "ship"),
    c("ship", "pirate")
  ))
)

leaflet(df) %>% addTiles() %>%
  # Select from oceanIcons based on df$type
  addMarkers(icon = ~oceanIcons[type])

以及以下，具有不同但相似的玩具数据，使用时runApp(shinyApp(ui, server), launch.browser = TRUE);

See the makeIcon 的文档 https://www.rdocumentation.org/packages/leaflet/versions/1.1.0/topics/makeIcon。作为第一个参数，它期望：

iconUrl: the URL or file path to the icon image

所以你的代码只有在你有以下条件时才有效png在您的工作目录中，更改路径，使其包含硬盘驱动器上图像的正确路径，或者您可以使用 URL。所以一个有效的例子是：

  # Make a list of icons. We'll index into it based on name.
    oceanIcons <- iconList(
      ship = makeIcon("http://globetrotterlife.org/blog/wp-content/uploads/leaflet-maps-marker-icons/ferry-18.png", 18, 18),
      pirate = makeIcon("http://globetrotterlife.org/blog/wp-content/uploads/leaflet-maps-marker-icons/danger-24.png", 24, 24)
    )

    # Some fake data
    df <- sp::SpatialPointsDataFrame(
      cbind(
        (runif(20) - .5) * 10 - 90.620130,  # lng
        (runif(20) - .5) * 3.8 + 25.638077  # lat
      ),
      data.frame(type = factor(
        ifelse(runif(20) > 0.75, "pirate", "ship"),
        c("ship", "pirate")
      ))
    )

    leaflet(df) %>% addTiles() %>%
      # Select from oceanIcons based on df$type
      addMarkers(icon = ~oceanIcons[type])

希望这可以帮助！