R mapview display wms

Mapview_wms.R

library(sf)
library(dplyr)
library(mapview)
library(leaflet)

m <- mapview()
m@map = m@map %>% addWMSTiles(group = 'NHDPlus',
                              "https://watersgeo.epa.gov/arcgis/services/NHDPlus_NP21/NHDSnapshot_NP21/MapServer/WmsServer?",
                              layers  = 4,
                              options = WMSTileOptions(format = "image/png", transparent = TRUE),
                              attribution = "") %>% setView(-122, 45, zoom=4)
m