R Markdown中的Android / IOS GPS位置

编程问答 2022-08-12

问题描述

我对Android和IOS手机上的GPS位置访问有疑问。 我使用R Markdown编写应用程序代码，而几个月前才开始编写代码。

我想要做的很简单： 我有一个带有交互式地图的HTLM页面，可以在其中搜索位置并访问我的GPS位置。 当我在计算机上启动HTML页面时，它会问我是否可以确定我的“ GPS”位置（显然我没有得到真实的GPS位置，因为我没有GPS），它可以正常工作很好，表示我会说“ IP位置”。 问题是，当我在Android手机上启动它时，根本没有问题，而我得到一个错误：“地理位置错误：用户拒绝了地理位置。”

通过阅读我在这里找到的每条帖子，我开始理解，这是HTTPS或HTTP的问题，Android不允许我的应用程序访问GPS位置，但是我有点迷路。

这是我的代码：

map <- leaflet(options = leafletoptions(zoomSnap=0.2,closePopupOnClick = FALSE,attributionControl = FALSE)) %>% addFullscreenControl(pseudoFullscreen = TRUE) %>%
  setView(lng = 2,lat = 47,zoom = 5.7) %>% addMeasure(position = "bottomleft",primaryLengthUnit = "meters",primaryAreaUnit = "hectares",activeColor = "#3D535D",completedColor = "#7D4479",localization = "fr",popupOptions = list(autoClose = FALSE)) %>% addSearchOSM(options = searchOptions(autoCollapse = TRUE,minLength = 2,hideMarkerOnCollapse = TRUE,movetoLocation = TRUE,zoom = 14)) %>%
  # Base groups
  addTiles() %>%
  addProviderTiles(providers$OpenStreetMap,group = "Open Street Map",options = providerTileOptions(opacity = 1)) %>%
  addProviderTiles(providers$GeoportailFrance,group = "Carte IGN") %>%
  addProviderTiles(providers$GeoportailFrance.ignMaps,group = "Carte IGN Classique",options = providerTileOptions(opacity = 1)) %>%
  addProviderTiles(providers$GeoportailFrance.orthos,group = "Sattelite",options = providerTileOptions(opacity = 0.9)) %>%
  addProviderTiles(providers$GeoportailFrance.parcels,group = "Cadastre",group = "Cadastre - Transparent",group = "Carte IGN - Transparent",options = providerTileOptions(opacity = 0.55)) %>%
  addProviderTiles(providers$GeoportailFrance.orthos,group = "Sattelite - Transparent",options = providerTileOptions(opacity = 0.3)) %>%
  # Layers control
  addLayersControl(
    baseGroups = c("Open Street Map","Carte IGN","Carte IGN Classique","Sattelite","Cadastre"),overlayGroups = c("Cadastre - Transparent","Carte IGN - Transparent","Sattelite - Transparent"),options = layersControlOptions(collapsed = TRUE,position = "bottomleft")
  ) %>% hideGroup("Cadastre - Transparent") %>% hideGroup("Carte IGN - Transparent") %>% hideGroup("Sattelite - Transparent") %>%
  addEasyprint(options = easyprintOptions(
title = 'Print map',position = 'bottomleft',exportOnly = TRUE))

map <- addControlGPS(map,options = gpsOptions(position = "topleft",activate = TRUE,autoCenter = TRUE,maxZoom = 10,setView = TRUE))
activateGPS(map)

map

谢谢您的帮助！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

androidandroidgpsleafletrr