javascript - R Leaflet自定义属性字符串

Question

当使用 R leaflet 包时，如何向属性字符串添加额外的内容(即右下角的“Leaflet | ...”)？

例如，我将如何在这张 map 上的属性文本中添加类似“数据源:...”的内容:

leaflet(data = quakes[1:20,]) %>% 
  addTiles() %>%
  addMarkers(~long, ~lat, popup = ~as.character(mag), label = ~as.character(mag))

Answer 1

您可以向 addTiles 添加一个 attribution 参数:

leaflet(data = quakes[1:20,]) %>% 
  addTiles(attribution = 'I did this, you hear?! Also Leaflet.') %>%
  addMarkers(~long, ~lat, popup = ~as.character(mag), label = ~as.character(mag))

不过，我很想知道如何使用 addProviderTiles 执行此操作，因为它似乎不接受 attribution 参数:/

编辑:好吧，我使用提供程序磁贴的解决方法是只使用这两个功能。我希望它实际上并没有同时调用两个磁贴，因为这有点浪费用户带宽——但是，嘿，它看起来不错!

leaflet(data = quakes[1:20,]) %>% 
  addTiles(attribution = 'I did this, you hear?! Also Leaflet.') %>%
  addProviderTiles(providers$OpenStreetMap.Mapnik) %>%
  addMarkers(~long, ~lat, popup = ~as.character(mag), label = ~as.character(mag))