I was looking for the same too ... As Roman answered, I use the following as an alternative
leaflet(data = data) %>% addMarkers() %>% addTiles(group = "OSM(default)") %>% addProviderTiles("Esri.WorldImagery", group = "ESRI") %>% addProviderTiles("Stamen.Toner", group = "Stamen") %>% addLayersControl(baseGroup = c("OSM(default", "ESRI", "Stamen"))
pavan source
share