The problem is with the background. If I change it, the zoom works correctly
I tried
map <- leaflet(options = leafletOptions(minZoom = 0, maxZoom = 60)) %>%
addProviderTiles("Stamen.TerrainBackground") %>%
addCircleMarkers(data=data, lat=Lat_GD, lng=Long_GD,
color="#020000", opacity=1, radius=6)
# or
map <- leaflet() %>%
addProviderTiles("Stamen.TerrainBackground", options = leafletOptions(minZoom = 0, maxZoom = 60)) %>%
addCircleMarkers(data=data, lat=Lat_GD, lng=Long_GD,
color="#020000", opacity=1, radius=6)
but it did not works