search

bcgov / watershedBC

Summarize watershed attributes in BC
https://bcgov-env.shinyapps.io/watershedBC/
Apache License 2.0
6 stars 0 forks source link

Add other satellite basemaps #26

Closed bevingtona closed 7 months ago

bevingtona commented 8 months ago

Add the GLAD basemaps? 

library(leaflet)
leaflet() %>%
  addWMSTiles("https://storage.googleapis.com/earthenginepartners-hansen/tiles/gfc_v1.4/first_543/{z}/{x}/{y}.jpg",
              layers = "GRB_BSK",
              options = WMSTileOptions(format = "image/png", transparent = TRUE),
              group = "2000") %>%
  addWMSTiles("https://storage.googleapis.com/earthenginepartners-hansen/tiles/gfc_v1.9/last_543/{z}/{x}/{y}.jpg",
              layers = "GRB_BSK",
              options = WMSTileOptions(format = "image/png", transparent = TRUE),
              group = "2021") %>%
  addLayersControl(baseGroups = c("2000","2021"))