r - 如何将 Leaflet.Locate 添加到 R 制作的 map (而不是定位)

Question

我正在调查这个 repo ，在您的传单 map 上添加了一个蓝点，如果您在手机上打开它，它会在您走路时跟随您，类似于谷歌地图选项，如 this demo 所示。 .

通常在 R 中并使用 Rmd，我会有这段代码，这样我就可以知道我在 map 上的位置:

---

title: "测试图"输出:html_document

knitr::opts_chunk$set(echo = TRUE)

library(leaflet)

旧的 map.locate 选项

我通常会在野外制作这张 map

leaflet() %>% 
  addTiles() %>%
  setView(-71.0382679, 42.3489054, zoom = 18) %>% 
  addEasyButton(easyButton(
    icon="fa-crosshairs", title="Locate Me",
    onClick=JS("function(btn, map){ map.locate({setView: true, enableHighAccuracy: true }); }")))

这对于查找您的位置非常有效，但它不会在您所在的位置生成标记，更重要的是，它不会跟随您，您可以查看 here 的示例

尝试合并 control.locate

所以我的第一次尝试只是将 locate 更改为 control.locate，但这没有用。

leaflet() %>% 
  addTiles() %>%
  setView(-71.0382679, 42.3489054, zoom = 18) %>% 
  addEasyButton(easyButton(
    icon="fa-crosshairs", title="Follow Me",
    onClick=JS("function(btn, map){ map.control.locate()}")))

我仍在考虑其他选择，但欢迎任何帮助，这里是 full rmd in github

Answer 1

这些 GPS 功能已在 leaflet.extras package 中实现.

这是基于您的 MWE 的工作版本

library(leaflet)
library(leaflet.extras)

your_map <- leaflet() %>% 
  addTiles() %>%
  setView(-71.0382679, 42.3489054, zoom = 18) %>%
  addControlGPS(
    options = gpsOptions(
      position = "topleft",
      activate = TRUE, 
      autoCenter = TRUE,
      setView = TRUE))

activateGPS(your_map)

结果是这样的:

剧透:Chrome 认为我现在在圣保罗......(我宁愿去哪里!)

...和here这是我的 Git 上的工作演示。

在我的手机上工作就像一个魅力。