leaflet.extras (version 1.0.0)

addWMSLegend: Add WMS Legend

Description

Add a WMS Legend

Usage

addWMSLegend(map, uri, position = "topright", layerId = NULL)

Arguments

map

The leaflet map

uri

The legend URI

position

position of control: "topleft", "topright", "bottomleft", or "bottomright"

layerId

A unique ID for the Legend

Examples

# NOT RUN {
leaflet(
  options = leafletOptions(
    center = c(-33.95293, 20.82824),
    zoom = 14,
    minZoom = 5,
    maxZoom = 18,
    maxBounds = list(
      c(-33.91444, 20.75351),
      c(-33.98731, 20.90626)
    )
  )
) %>%
  addWMSTiles(
    baseUrl = paste0(
      "http://maps.kartoza.com/web/?",
      "map=/web/Boosmansbos/Boosmansbos.qgs"
    ),
    layers = "Boosmansbos",
    options = WMSTileOptions(format = "image/png", transparent = TRUE),
    attribution = paste0(
      "(c)<a href= \"http://kartoza.com\">Kartoza.com</a> and ",
      "<a href= \"http://www.ngi.gov.za/\">SA-NGI</a>"
    )
  ) %>%
  addWMSLegend(
    uri = paste0(
      "http://maps.kartoza.com/web/?",
      "map=/web/Boosmansbos/Boosmansbos.qgs&&SERVICE=WMS&VERSION=1.3.0",
      "&SLD_VERSION=1.1.0&REQUEST=GetLegendGraphic&FORMAT=image/jpeg&LAYER=Boosmansbos&STYLE="
    )
  )
# }