#'@title get WMS from site
#'@description get a WMS url from a site that has a 'watershed'
#'
#'@param site a site identifier
#'
#'@return a character string for WMS url or NULL if watershed doesn't exist for site, or site doesn't exist.
#'@seealso \code{\link{get_watershed_WFS}}
#'@examples
#'
#'\dontrun{
#'site <- "nwis_04165500"
#'get_watershed_WMS(site)
#'
#'# will fail
#'get_watershed_WMS('fake_site'))
#'}
#'
#'@import sbtools
#'@export
get_watershed_WMS = function(site){
watershed_item <- get_watershed_item(site)
WMS_url <- match_url_distro(watershed_item, "ScienceBase WMS Service")
return(WMS_url)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.