BC WMSTiles

bc_wms_tiles.R

library(bcmaps)
library(leaflet)
library(sf)

st_transform(bc_bound(), 4326) %>% 
leaflet() %>%
  #add basemap
  #addpolygons and make it show in three different layers, by risk level
  addPolygons() %>%
  addProviderTiles(providers$CartoDB.DarkMatter,
                   options = providerTileOptions(noWrap = TRUE)) %>% 
  addWMSTiles("https://openmaps.gov.bc.ca/geo/pub/WHSE_WATER_MANAGEMENT.WLS_PWD_APPLICATIONS_SVW/ows?service=WMS", 
              layers="pub:WHSE_WATER_MANAGEMENT.WLS_PWD_APPLICATIONS_SVW", 
              options = WMSTileOptions(format = "image/png", 
                                       transparent = TRUE))

bc_wms_with_legend_no_sf.R

library(leaflet)
library(envreportutils)
library(leaflet.extras)

  leaflet() %>%
  addProviderTiles(providers$CartoDB.DarkMatter,
                   options = providerTileOptions(noWrap = TRUE)) %>%
  addWMSTiles("https://openmaps.gov.bc.ca/geo/pub/WHSE_WATER_MANAGEMENT.WLS_PWD_APPLICATIONS_SVW/ows?service=WMS", 
              layers="pub:WHSE_WATER_MANAGEMENT.WLS_PWD_APPLICATIONS_SVW", 
              options = WMSTileOptions(format = "image/png", 
                                       transparent = TRUE)) %>% 
  addWMSLegend(uri = "https://openmaps.gov.bc.ca/geo/pub/WHSE_WATER_MANAGEMENT.WLS_PWD_APPLICATIONS_SVW/ows?service=WMS&request=GetLegendGraphic&format=image%2Fpng&width=20&height=20&layer=pub%3AWHSE_WATER_MANAGEMENT.WLS_PWD_APPLICATIONS_SVW") %>% 
  set_bc_view() %>% 
  add_bc_home_button()