Open bonushenricus opened 3 years ago
It seems to work in Shiny but not in RStudio..
library(shiny)
library(leaflet)
library(leaflet.extras)
ui <- fluidPage(leafletOutput("map"))
server <- function(input, output, session) {
output$map <- renderLeaflet({
leaflet() %>%
addTiles() %>%
addControlGPS(options = gpsOptions(position = "topleft", activate = T, autoCenter = T, maxZoom = 10, setView = F)) %>%
activateGPS()
})
}
shinyApp(ui, server)
Thanks a lot for the package. I am trying with
map<-leaflet()%>% addControlGPS(options = gpsOptions(position = "topleft", activate = T, autoCenter = T, maxZoom = 10, setView = F))
activateGPS(map)
but in the resulting map, on the crosshair button it tells me
Thank you