library(leaflet)
library(leaflet.extras2)
leaflet() %>%
addTiles(group = "base") %>%
setView(9, 50, 5) %>%
addWMS(
baseUrl = "https://maps.dwd.de/geoserver/dwd/wms",
layers = "dwd:BRD_1km_winddaten_10m",
popupOptions = popupOptions(maxWidth = 600),
checkempty = TRUE,
options = WMSTileOptions(
transparent = TRUE,
format = "image/png",
info_format = "text/html"
)
)
Run the code above in your browser using DataLab