Update WMS URL in leaflet demo

Author: regetz

materials/sections/visualization-ggplot-leaflet.qmd

@@ -692,7 +692,7 @@ You can also use `leaflet` to import Web Map Service (WMS) tiles. Here is an exa
 ```{r}
 leaflet(locations) %>%
     addWMSTiles(
-        "https://www.gebco.net/data_and_products/gebco_web_services/web_map_service/mapserv?request=getmap&service=wms&BBOX=-90,-180,90,360&crs=EPSG:4326&format=image/jpeg&layers=gebco_latest&width=1200&height=600&version=1.3.0",
+        "https://wms.gebco.net/mapserv?request=getmap&service=wms&BBOX=-90,-180,90,360&crs=EPSG:4326&format=image/jpeg&layers=gebco_latest&width=1200&height=600&version=1.3.0",
         layers = 'GEBCO_LATEST',
         attribution = "Imagery reproduced from the GEBCO_2022 Grid, WMS 1.3.0 GetMap, www.gebco.net"
     ) %>%