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)

[trafficonese]

@bonushenricus Do you wanna open a bug report at rstudio?
There is nothing I can do about that bug.