ControlGPS not working in RStudio

[bonushenricus]

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

Geolocation error. User denied geolocation prompt

Thank you

[trafficonese]

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)