Title: | 'leaflet' Extensions for 'mapview' |
---|---|
Description: | Provides extensions for packages 'leaflet' & 'mapdeck', many of which are used by package 'mapview'. Focus is on functionality readily available in Geographic Information Systems such as 'Quantum GIS'. Includes functions to display coordinates of mouse pointer position, query image values via mouse pointer and zoom-to-layer buttons. Additionally, provides a feature type agnostic function to add points, lines, polygons to a map. |
Authors: | Tim Appelhans [cre, aut], Christoph Reudenbach [ctb], Kenton Russell [ctb], Jochen Darley [ctb], Daniel Montague [ctb, cph] (Leaflet.EasyButton plugin), Lorenzo Busetto [ctb], Luigi Ranghetti [ctb], Miles McBain [ctb], Sebastian Gatscha [ctb], Björn Harrtell [ctb, cph] (FlatGeobuf plugin), Daniel Dufour [ctb, cph] (georaster-layer-for-leaflet), Yeedle Neuwirth [ctb], Derek Friend [ctb], Kevin Cazelles [ctb] |
Maintainer: | Tim Appelhans <[email protected]> |
License: | MIT + file LICENSE |
Version: | 0.2.3.9012 |
Built: | 2024-11-21 18:28:48 UTC |
Source: | https://github.com/r-spatial/leafem |
Add Cloud Optimised Geotiff (COG) to a leaflet map.
addCOG( map, url = NULL, group = NULL, layerId = NULL, resolution = 96, opacity = 0.8, options = leaflet::tileOptions(), colorOptions = NULL, pixelValuesToColorFn = NULL, autozoom = TRUE, rgb = FALSE, imagequery = TRUE, imagequeryOptions = NULL, ... )
addCOG( map, url = NULL, group = NULL, layerId = NULL, resolution = 96, opacity = 0.8, options = leaflet::tileOptions(), colorOptions = NULL, pixelValuesToColorFn = NULL, autozoom = TRUE, rgb = FALSE, imagequery = TRUE, imagequeryOptions = NULL, ... )
map |
the map to add the COG to. |
url |
url to the COG file to render. |
group |
he name of the group this raster image should belong to. |
layerId |
the layerId. |
resolution |
the target resolution for the simple nearest neighbor interpolation. Larger values will result in more detailed rendering, but may impact performance. Default is 96 (pixels). |
opacity |
opacity of the rendered layer. |
options |
options to be passed to the layer.
See |
colorOptions |
list defining the palette, breaks and na.color to be used. Currently not used. |
pixelValuesToColorFn |
optional JS function to be passed to the browser. Can be used to fine tune and manipulate the color mapping. See examples & https://github.com/r-spatial/leafem/issues/25 for some examples. Currently not used. |
autozoom |
whether to automatically zoom to the full extent of the layer.
Default is |
rgb |
logical, whether to render Geotiff as RGB. Currently not used. |
imagequery |
If |
imagequeryOptions |
additional options for the control panel. |
... |
currently not used. |
This function will overlay Cloud Optimised Geotiff data from a remote url on a leaflet map. Like 'addGeotiff' it uses the leaflet plugin 'georaster-layer-for-leaflet' to render the data. See 'addGeotiff' for a bit more detail what that means.
A leaflet map object.
if (interactive()) { library(leaflet) library(leafem) base_url = "https://sentinel-cogs.s3.us-west-2.amazonaws.com" image_url = "sentinel-s2-l2a-cogs/46/X/DG/2022/8/S2B_46XDG_20220829_0_L2A/L2A_PVI.tif" url = sprintf("%s/%s", base_url, image_url) leaflet() |> addTiles() |> leafem:::addCOG( url = url , group = "COG" , resolution = 512 , autozoom = TRUE ) }
if (interactive()) { library(leaflet) library(leafem) base_url = "https://sentinel-cogs.s3.us-west-2.amazonaws.com" image_url = "sentinel-s2-l2a-cogs/46/X/DG/2022/8/S2B_46XDG_20220829_0_L2A/L2A_PVI.tif" url = sprintf("%s/%s", base_url, image_url) leaflet() |> addTiles() |> leafem:::addCOG( url = url , group = "COG" , resolution = 512 , autozoom = TRUE ) }
Add JavaScript functioality to enable copying of the current view bouding box
to the clipboard. The copy.btn
argument expects a valid keycode
event.code
such as "KeyE" (the default).
Use https://www.toptal.com/developers/keycode/ to find the
approprate codes for your keyboard.
addCopyExtent(map, event.code = "KeyE")
addCopyExtent(map, event.code = "KeyE")
map |
a mapview or leaflet object. |
event.code |
the JavaScript event.code for ley strokes. |
library(leaflet) leaflet() %>% addProviderTiles("CartoDB.Positron") %>% addCopyExtent(event.code = "KeyE") %>% addMouseCoordinates() # now click on the map (!) and zoom to anywhere in the map, then press 'e' on # your keyboard. This will copy the current extent/bounding box as a JSON object # to your clipboard which can then be parsed with: # jsonlite::fromJSON(<Ctrl+v>)
library(leaflet) leaflet() %>% addProviderTiles("CartoDB.Positron") %>% addCopyExtent(event.code = "KeyE") %>% addMouseCoordinates() # now click on the map (!) and zoom to anywhere in the map, then press 'e' on # your keyboard. This will copy the current extent/bounding box as a JSON object # to your clipboard which can then be parsed with: # jsonlite::fromJSON(<Ctrl+v>)
This function adds the bounding box of a spatial object to a leaflet or mapview map.
addExtent(map, data, ...)
addExtent(map, data, ...)
map |
A |
data |
A |
... |
additional arguments passed on to |
library(leaflet) # Usage in leaflet leaflet() %>% addProviderTiles("OpenStreetMap") %>% addExtent(gadmCHE) leaflet(gadmCHE) %>% addProviderTiles("OpenStreetMap") %>% addExtent()
library(leaflet) # Usage in leaflet leaflet() %>% addProviderTiles("OpenStreetMap") %>% addExtent(gadmCHE) leaflet(gadmCHE) %>% addProviderTiles("OpenStreetMap") %>% addExtent()
leaflet::add*
functions.Add simple features geometries from sf
addFeatures(map, data, pane = "overlayPane", ...)
addFeatures(map, data, pane = "overlayPane", ...)
map |
A |
data |
A |
pane |
The name of the map pane for the features to be rendered in. |
... |
Further arguments passed to the respective |
A leaflet map
object.
library(leaflet) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addCircleMarkers(data = breweries91) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addFeatures(data = breweries91) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addPolylines(data = atlStorms2005) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addFeatures(atlStorms2005) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addPolygons(data = gadmCHE) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addFeatures(gadmCHE)
library(leaflet) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addCircleMarkers(data = breweries91) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addFeatures(data = breweries91) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addPolylines(data = atlStorms2005) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addFeatures(atlStorms2005) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addPolygons(data = gadmCHE) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addFeatures(gadmCHE)
flatgeobuf is a performant binary geo-spatial file format suitable for
serving large data. For more details see
https://github.com/flatgeobuf/flatgeobuf and the respective
documentation for the GDAL/OGR driver at
https://gdal.org/en/latest/drivers/vector/flatgeobuf.html.
In contrast to classical ways of serving data from R onto a leaflet map,
flatgeobuf can stream the data chunk by chunk so that rendering of the map
is more or less instantaneous. The map is responsive while data is still
loading so that popup queries, zooming and panning will work even
though not all data has been rendered yet. This makes for a rather pleasant
user experience as we don't have to wait for all data to be added to the map
before interacting with it.
addFgb( map, file = NULL, url = NULL, layerId = NULL, group = NULL, popup = NULL, label = NULL, radius = 10, stroke = TRUE, color = "#03F", weight = 5, opacity = 0.5, fill = FALSE, fillColor = NULL, fillOpacity = 0.2, dashArray = NULL, options = NULL, className = NULL, scale = scaleOptions(), minZoom = NULL, maxZoom = 52, highlightOptions = NULL, labelOptions = NULL, ... )
addFgb( map, file = NULL, url = NULL, layerId = NULL, group = NULL, popup = NULL, label = NULL, radius = 10, stroke = TRUE, color = "#03F", weight = 5, opacity = 0.5, fill = FALSE, fillColor = NULL, fillOpacity = 0.2, dashArray = NULL, options = NULL, className = NULL, scale = scaleOptions(), minZoom = NULL, maxZoom = 52, highlightOptions = NULL, labelOptions = NULL, ... )
map |
a mapview or leaflet object. |
file |
file path to the .fgb file to be added to |
url |
url of the data to be added to |
layerId |
the layer id. |
group |
the group name for the file to be added to |
popup |
either a logical of whether to show the feature properties (fields) in popups or the name of the field to show in popups. |
label |
name of the field to be shown as a tooltip. |
radius |
the size of the circle markers. |
stroke |
whether to draw stroke along the path (e.g. the borders of polygons or circles). |
color |
stroke color. |
weight |
stroke width in pixels. |
opacity |
stroke opacity. |
fill |
whether to fill the path with |
fillColor |
fill color. If set, |
fillOpacity |
fill opacity. |
dashArray |
a string that defines the stroke dash pattern. |
options |
a list of extra options for tile layers, popups, paths (circles, rectangles, polygons, ...), or other map elements. |
className |
optional class name for the popup (table). Can be used to define css for the popup. |
scale |
named list with instructions on how to scale radius, width, opacity, fillOpacity if those are to be mapped to an attribute column. |
minZoom |
minimum zoom level at which data should be rendered. |
maxZoom |
maximum zoom level at which data should be rendered. |
highlightOptions |
Options for highlighting the shape on mouse over. |
labelOptions |
A Vector of |
... |
currently not used. |
if (interactive()) { library(leaflet) library(leafem) # via URL url = "https://raw.githubusercontent.com/flatgeobuf/flatgeobuf/3.0.1/test/data/UScounties.fgb" leaflet() %>% addTiles() %>% leafem:::addFgb( url = url , group = "counties" , label = "NAME" , popup = TRUE , fill = TRUE , fillColor = "blue" , fillOpacity = 0.6 , color = "black" , weight = 1 ) %>% addLayersControl(overlayGroups = c("counties")) %>% addMouseCoordinates() %>% setView(lng = -105.644, lat = 51.618, zoom = 3) }
if (interactive()) { library(leaflet) library(leafem) # via URL url = "https://raw.githubusercontent.com/flatgeobuf/flatgeobuf/3.0.1/test/data/UScounties.fgb" leaflet() %>% addTiles() %>% leafem:::addFgb( url = url , group = "counties" , label = "NAME" , popup = TRUE , fill = TRUE , fillColor = "blue" , fillOpacity = 0.6 , color = "black" , weight = 1 ) %>% addLayersControl(overlayGroups = c("counties")) %>% addMouseCoordinates() %>% setView(lng = -105.644, lat = 51.618, zoom = 3) }
Add stars/raster image to a leaflet map using optimised rendering.
addGeoRaster( map, x, group = NULL, layerId = NULL, resolution = 96, opacity = 0.8, options = leaflet::tileOptions(), colorOptions = NULL, project = TRUE, pixelValuesToColorFn = NULL, autozoom = TRUE, ... )
addGeoRaster( map, x, group = NULL, layerId = NULL, resolution = 96, opacity = 0.8, options = leaflet::tileOptions(), colorOptions = NULL, project = TRUE, pixelValuesToColorFn = NULL, autozoom = TRUE, ... )
map |
the map to add the raster data to. |
x |
the stars/raster object to be rendered. |
group |
the name of the group this raster image should belong to. |
layerId |
the layerId. |
resolution |
the target resolution for the simple nearest neighbor interpolation. Larger values will result in more detailed rendering, but may impact performance. Default is 96 (pixels). |
opacity |
opacity of the rendered layer. |
options |
options to be passed to the layer.
See |
colorOptions |
list defining the palette, breaks and na.color to be used. |
project |
whether to project the RasterLayer to conform with leaflets
expected crs. Defaults to |
pixelValuesToColorFn |
optional JS function to be passed to the browser. Can be used to fine tune and manipulate the color mapping. See https://github.com/r-spatial/leafem/issues/25 for some examples. |
autozoom |
whether to automatically zoom to the full extent of the layer.
Default is |
... |
Further arguments passed to |
This uses the leaflet plugin 'georaster-layer-for-leaflet' to render raster data.
See https://github.com/GeoTIFF/georaster-layer-for-leaflet for details.
The clue is that rendering uses simple nearest neighbor interpolation on-the-fly
to ensure smooth rendering. This enables handling of larger rasters than with
the standard addRasterImage
.
A leaflet map object.
if (interactive()) { library(leaflet) library(leafem) library(stars) tif = system.file("tif/L7_ETMs.tif", package = "stars") x1 = read_stars(tif) x1 = x1[, , , 3] # band 3 leaflet() %>% addTiles() %>% leafem:::addGeoRaster( x1 , opacity = 1 , colorOptions = colorOptions( palette = grey.colors(256) ) ) }
if (interactive()) { library(leaflet) library(leafem) library(stars) tif = system.file("tif/L7_ETMs.tif", package = "stars") x1 = read_stars(tif) x1 = x1[, , , 3] # band 3 leaflet() %>% addTiles() %>% leafem:::addGeoRaster( x1 , opacity = 1 , colorOptions = colorOptions( palette = grey.colors(256) ) ) }
Add a GeoTIFF file to a leaflet map using optimised rendering.
addGeotiff( map, file = NULL, url = NULL, group = NULL, layerId = NULL, resolution = 96, bands = NULL, arith = NULL, project = TRUE, method = NULL, opacity = 0.8, options = leaflet::tileOptions(), colorOptions = NULL, rgb = FALSE, pixelValuesToColorFn = NULL, autozoom = TRUE, imagequery = TRUE, imagequeryOptions = NULL, ... )
addGeotiff( map, file = NULL, url = NULL, group = NULL, layerId = NULL, resolution = 96, bands = NULL, arith = NULL, project = TRUE, method = NULL, opacity = 0.8, options = leaflet::tileOptions(), colorOptions = NULL, rgb = FALSE, pixelValuesToColorFn = NULL, autozoom = TRUE, imagequery = TRUE, imagequeryOptions = NULL, ... )
map |
the map to add the raster data to. |
file |
path to the GeoTIFF file to render. |
url |
url to the GeoTIFF file to render. Ignored if |
group |
he name of the group this raster image should belong to. |
layerId |
the layerId. |
resolution |
the target resolution for the simple nearest neighbor interpolation. Larger values will result in more detailed rendering, but may impact performance. Default is 96 (pixels). |
bands |
which bands to use in case of multi-band Geotiff. |
arith |
an optional function to be applied to a multi-layer object. Will be computed on-the-fly in the browser. |
project |
if TRUE (default), automatically project x to the map projection
expected by georaster-layer-for-leaflet (EPSG:4326);
if FALSE, it's the caller's responsibility to ensure that |
method |
character defining the resampling method to be used when
|
opacity |
opacity of the rendered layer. |
options |
options to be passed to the layer.
See |
colorOptions |
list defining the palette, breaks and na.color to be used. |
rgb |
logical, whether to render Geotiff as RGB. |
pixelValuesToColorFn |
optional JS function to be passed to the browser. Can be used to fine tune and manipulate the color mapping. See examples & https://github.com/r-spatial/leafem/issues/25 for some examples. |
autozoom |
whether to automatically zoom to the full extent of the layer.
Default is |
imagequery |
If |
imagequeryOptions |
additional options for the control panel. |
... |
currently not used. |
This uses the leaflet plugin 'georaster-layer-for-leaflet' to render GeoTIFF data.
See https://github.com/GeoTIFF/georaster-layer-for-leaflet for details.
The GeoTIFF file is read directly in the browser using geotiffjs
(https://geotiffjs.github.io/), so there's no need to read data into
the current R session. GeoTIFF files can be read from the file system or via url.
The clue is that rendering uses simple nearest neighbor interpolation on-the-fly
to ensure smooth rendering. This enables handling of larger rasters than with
the standard addRasterImage
.
A leaflet map object.
if (interactive()) { library(leaflet) library(leafem) library(stars) tif = system.file("tif/L7_ETMs.tif", package = "stars") x1 = read_stars(tif) x1 = x1[, , , 3] # band 3 tmpfl = tempfile(fileext = ".tif") write_stars(st_warp(x1, crs = 4326), tmpfl) leaflet() %>% addTiles() %>% addGeotiff( file = tmpfl , opacity = 0.9 , colorOptions = colorOptions( palette = hcl.colors(256, palette = "inferno") , na.color = "transparent" ) ) }
if (interactive()) { library(leaflet) library(leafem) library(stars) tif = system.file("tif/L7_ETMs.tif", package = "stars") x1 = read_stars(tif) x1 = x1[, , , 3] # band 3 tmpfl = tempfile(fileext = ".tif") write_stars(st_warp(x1, crs = 4326), tmpfl) leaflet() %>% addTiles() %>% addGeotiff( file = tmpfl , opacity = 0.9 , colorOptions = colorOptions( palette = hcl.colors(256, palette = "inferno") , na.color = "transparent" ) ) }
This function adds a button to the map that enables zooming to a provided extent / bbox.
addHomeButton( map, ext, group = "layer", position = "bottomright", add = TRUE, css = list(), hover_css = list() ) removeHomeButton(map)
addHomeButton( map, ext, group = "layer", position = "bottomright", add = TRUE, css = list(), hover_css = list() ) removeHomeButton(map)
map |
a mapview or leaflet object. |
ext |
the extent / bbox to zoom to. |
group |
the name of the group/layer to be zoomed to (or any character string) |
position |
the position of the button (one of 'topleft', 'topright', 'bottomleft', 'bottomright'). Defaults to 'bottomright'. |
add |
logical. Whether to add the button to the map (mainly for internal use). |
removeHomeButton()
: remove a homeButton from a map
library(leaflet) library(raster) ## pass a group name only m <- leaflet() %>% addProviderTiles("OpenStreetMap") %>% addCircleMarkers(data = breweries91, group = "breweries91") %>% addHomeButton(group = "breweries91") m ## pass a raster extent - group can now be an arbitrary label m <- leaflet() %>% addProviderTiles("OpenStreetMap") %>% addCircleMarkers(data = breweries91, group = "breweries91") %>% addHomeButton(ext = extent(breweries91), group = "Brew") m ## remove the button removeHomeButton(m)
library(leaflet) library(raster) ## pass a group name only m <- leaflet() %>% addProviderTiles("OpenStreetMap") %>% addCircleMarkers(data = breweries91, group = "breweries91") %>% addHomeButton(group = "breweries91") m ## pass a raster extent - group can now be an arbitrary label m <- leaflet() %>% addProviderTiles("OpenStreetMap") %>% addCircleMarkers(data = breweries91, group = "breweries91") %>% addHomeButton(ext = extent(breweries91), group = "Brew") m ## remove the button removeHomeButton(m)
Add image query functionality to leaflet/mapview map.
addImageQuery( map, x, band = 1, group = NULL, layerId = NULL, project = TRUE, type = c("mousemove", "click"), digits, position = "topright", prefix = "Layer", className = "", ... )
addImageQuery( map, x, band = 1, group = NULL, layerId = NULL, project = TRUE, type = c("mousemove", "click"), digits, position = "topright", prefix = "Layer", className = "", ... )
map |
the map with the RasterLayer to be queried. |
x |
the RasterLayer that is to be queried. |
band |
for stars layers, the band number to be queried. |
group |
the group of the RasterLayer to be queried. |
layerId |
the layerId of the RasterLayer to be queried. Needs to be the
same as supplied in |
project |
whether to project the RasterLayer to conform with leaflets
expected crs. Defaults to |
type |
whether query should occur on 'mousemove' or 'click'. Defaults to 'mousemove'. |
digits |
the number of digits to be shown in the display field. |
position |
where to place the display field. Default is 'topright'. |
prefix |
a character string to be shown as prefix for the layerId. |
className |
a character string to append to the control legend. |
... |
currently not used. |
This function enables Raster*/stars objects added to leaflet/mapview maps to
be queried. Standard query is on 'mousmove', but can be changed to 'click'.
Note that for this to work, the layerId
needs to be the same as the
one that was set in addRasterImage
or
addStarsImage
. Currently only works for
numeric values (i.e. numeric/integer and factor values are supported).
A leaflet map object.
if (interactive()) { if (requireNamespace("plainview")) { library(leaflet) library(plainview) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addRasterImage(poppendorf[[1]], project = TRUE, group = "poppendorf", layerId = "poppendorf") %>% addImageQuery(poppendorf[[1]], project = TRUE, layerId = "poppendorf") %>% addLayersControl(overlayGroups = "poppendorf") } }
if (interactive()) { if (requireNamespace("plainview")) { library(leaflet) library(plainview) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addRasterImage(poppendorf[[1]], project = TRUE, group = "poppendorf", layerId = "poppendorf") %>% addImageQuery(poppendorf[[1]], project = TRUE, layerId = "poppendorf") %>% addLayersControl(overlayGroups = "poppendorf") } }
Add vector data to leaflet map directly from the file system
addLocalFile( map, file, layerId = NULL, group = NULL, popup = NULL, label = NULL, radius = 10, stroke = TRUE, color = "#03F", weight = 5, opacity = 0.5, fill = TRUE, fillColor = color, fillOpacity = 0.2, dashArray = NULL, options = NULL )
addLocalFile( map, file, layerId = NULL, group = NULL, popup = NULL, label = NULL, radius = 10, stroke = TRUE, color = "#03F", weight = 5, opacity = 0.5, fill = TRUE, fillColor = color, fillOpacity = 0.2, dashArray = NULL, options = NULL )
map |
a mapview or leaflet object. |
file |
file path to the file to be added to |
layerId |
the layer id. |
group |
the group name for the file to be added to |
popup |
either a logical of whether to show the feature properties (fields) in popups or the name of the field to show in popups. |
label |
name of the field to be shown as a tooltip. |
radius |
the size of the circle markers. |
stroke |
whether to draw stroke along the path (e.g. the borders of polygons or circles). |
color |
stroke color. |
weight |
stroke width in pixels. |
opacity |
stroke opacity. |
fill |
whether to fill the path with color (e.g. filling on polygons or circles). |
fillColor |
fill color. |
fillOpacity |
fill opacity. |
dashArray |
a string that defines the stroke dash pattern. |
options |
a list of extra options for tile layers, popups, paths (circles, rectangles, polygons, ...), or other map elements. |
if (interactive()) { library(leafem) library(leaflet) library(sf) destfile = tempfile(fileext = ".gpkg") st_write(st_as_sf(gadmCHE), dsn = destfile) leaflet() %>% addTiles() %>% addLocalFile(destfile, popup = TRUE) }
if (interactive()) { library(leafem) library(leaflet) library(sf) destfile = tempfile(fileext = ".gpkg") st_write(st_as_sf(gadmCHE), dsn = destfile) leaflet() %>% addTiles() %>% addLocalFile(destfile, popup = TRUE) }
This function adds an image to a map. Both local and remote (web) image sources are supported. Position on the map is completely controllable.
addLogo( map, img, alpha = 1, src = NULL, url = NULL, position = c("topleft", "topright", "bottomleft", "bottomright"), offset.x = 50, offset.y = 13, width = 60, height = 60, class = NULL, layerId = NULL ) updateLogo(map, img, layerId) removeLogo(map, layerId) hideLogo(map, layerId) showLogo(map, layerId)
addLogo( map, img, alpha = 1, src = NULL, url = NULL, position = c("topleft", "topright", "bottomleft", "bottomright"), offset.x = 50, offset.y = 13, width = 60, height = 60, class = NULL, layerId = NULL ) updateLogo(map, img, layerId) removeLogo(map, layerId) hideLogo(map, layerId) showLogo(map, layerId)
map |
a mapview or leaflet object. |
img |
the image to be added to the map. |
alpha |
opacity of the added image. |
src |
DEPRECATED. The function now automatically determines if 'img' is a local or remote image using 'file.exists(img)'. |
url |
an optional URL to be opened when clicking on the image (e.g. company's homepage). |
position |
one of "topleft", "topright", "bottomleft", "bottomright". |
offset.x |
the offset in x direction from the chosen position (in pixels). |
offset.y |
the offset in y direction from the chosen position (in pixels). |
width |
width of the rendered image in pixels. |
height |
height of the rendered image in pixels. |
class |
optional class |
layerId |
an id for the logo div. |
library(leaflet) ## default position is topleft next to zoom control img <- "https://www.r-project.org/logo/Rlogo.svg" leaflet() %>% addTiles() %>% addLogo(img, url = "https://www.r-project.org/logo/") ## with local image if (requireNamespace("png")) { library(png) img <- system.file("img", "Rlogo.png", package="png") leaflet() %>% addTiles() %>% addLogo(img, src = "local", alpha = 0.3) ## dancing banana gif :-) m <- leaflet() %>% addTiles() %>% addCircleMarkers(data = breweries91) addLogo(m, "https://jeroenooms.github.io/images/banana.gif", position = "bottomleft", offset.x = 5, offset.y = 40, width = 100, height = 100) }
library(leaflet) ## default position is topleft next to zoom control img <- "https://www.r-project.org/logo/Rlogo.svg" leaflet() %>% addTiles() %>% addLogo(img, url = "https://www.r-project.org/logo/") ## with local image if (requireNamespace("png")) { library(png) img <- system.file("img", "Rlogo.png", package="png") leaflet() %>% addTiles() %>% addLogo(img, src = "local", alpha = 0.3) ## dancing banana gif :-) m <- leaflet() %>% addTiles() %>% addCircleMarkers(data = breweries91) addLogo(m, "https://jeroenooms.github.io/images/banana.gif", position = "bottomleft", offset.x = 5, offset.y = 40, width = 100, height = 100) }
This function adds a box displaying the current cursor location (latitude, longitude and zoom level) at the top of a rendered mapview or leaflet map. In case of mapview, this is automatically added. NOTE: The information will only render once a mouse movement has happened on the map.
addMouseCoordinates( map, epsg = NULL, proj4string = NULL, native.crs = FALSE, css = list() ) removeMouseCoordinates(map) clip2sfc(x, clipboard = TRUE)
addMouseCoordinates( map, epsg = NULL, proj4string = NULL, native.crs = FALSE, css = list() ) removeMouseCoordinates(map) clip2sfc(x, clipboard = TRUE)
map |
a mapview or leaflet object. |
epsg |
the epsg string to be shown. |
proj4string |
the proj4string to be shown. |
native.crs |
logical. whether to use the native crs in the coordinates box. |
css |
list of valid CSS key-value pairs. See e.g. https://www.w3schools.com/cssref/index.php for possible values. |
x |
a charcter string with valid longitude and latitude values. Order
matters! If missing and |
clipboard |
whether to read contents from the clipboard. Default is
|
If style is set to "detailed", the following information will be displayed:
x: x-position of the mouse cursor in projected coordinates
y: y-position of the mouse cursor in projected coordinates
epsg: the epsg code of the coordinate reference system of the map
proj4: the proj4 definition of the coordinate reference system of the map
lat: latitude position of the mouse cursor
lon: longitude position of the mouse cursor
zoom: the current zoom level
By default, only 'lat', 'lon' and 'zoom' are shown. To show the details about epsg, proj4 press and hold 'Ctrl' and move the mouse. 'Ctrl' + click will copy the current contents of the box/strip at the top of the map to the clipboard, though currently only copying of 'lon', 'lat' and 'zoom' are supported, not 'epsg' and 'proj4' as these do not change with pan and zoom.
removeMouseCoordinates()
: remove mouse coordinates information from a map
clip2sfc()
: convert mouse coordinates from clipboard to sfc
library(leaflet) leaflet() %>% addProviderTiles("OpenStreetMap") # without mouse position info m = leaflet() %>% addProviderTiles("OpenStreetMap") %>% addMouseCoordinates() m removeMouseCoordinates(m) # adjust css leaflet() %>% addProviderTiles("OpenStreetMap") %>% addMouseCoordinates( css = list( "font-size" = "30px", "text-align" = "center", "background-color" = "#ff000080", "color" = "rgb(255, 255, 255)" ) )
library(leaflet) leaflet() %>% addProviderTiles("OpenStreetMap") # without mouse position info m = leaflet() %>% addProviderTiles("OpenStreetMap") %>% addMouseCoordinates() m removeMouseCoordinates(m) # adjust css leaflet() %>% addProviderTiles("OpenStreetMap") %>% addMouseCoordinates( css = list( "font-size" = "30px", "text-align" = "center", "background-color" = "#ff000080", "color" = "rgb(255, 255, 255)" ) )
Add vector tiles stored as PMTiles in an AWS S3 bucket to a leaflet map.
Add point data stored as PMTiles
Add polylines stored as PMTiles
addPMPolygons( map, url, style, layerId = NULL, group = NULL, pane = "overlayPane", attribution = NULL ) addPMPoints( map, url, style, layerId = NULL, group = NULL, pane = "overlayPane", attribution = NULL ) addPMPolylines( map, url, style, layerId = NULL, group = NULL, pane = "overlayPane", attribution = NULL )
addPMPolygons( map, url, style, layerId = NULL, group = NULL, pane = "overlayPane", attribution = NULL ) addPMPoints( map, url, style, layerId = NULL, group = NULL, pane = "overlayPane", attribution = NULL ) addPMPolylines( map, url, style, layerId = NULL, group = NULL, pane = "overlayPane", attribution = NULL )
map |
the map to add to. |
url |
the url to the tiles to be served. |
style |
styling for the layer. See paintRules for details. |
layerId |
the layer id. |
group |
group name. |
pane |
the map pane to which the layer should be added. See [leaflet](addMapPane) for details. |
attribution |
optional attribution character string. |
These functions can be used to add cloud optimized vector tiles data in the '.pmtiles' format stored in an Amazon Web Services (AWS) S3 bucket to a leaflet map. For instructions on how to create these files, see https://github.com/protomaps/PMTiles.
NOTE: You may not see the tiles rendered in the RStudio viewer pane. Make sure to open the map in a browser.
addPMPoints()
: add points stored as PMTiles
addPMPolylines()
: add ploylines stored as PMTiles
## PMPolygons library(leaflet) library(leafem) url_nzb = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/nz-building-outlines.pmtiles" leaflet() %>% addTiles() %>% addPMPolygons( url = url_nzb , layerId = "nzbuildings" , group = "nzbuildings" , style = paintRules( layer = "nz-building-outlines" , fillColor = "pink" , stroke = "green" ) ) %>% setView(173.50, -40.80, 6) ## PMPoints library(leaflet) library(leafem) url_depoints = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/depoints.pmtiles" leaflet() %>% addTiles() %>% addPMPoints( url = url_depoints , layerId = "depoints" , group = "depoints" , style = paintRules( layer = "depoints" , fillColor = "black" , stroke = "white" , radius = 4 ) ) %>% setView(10, 51, 6) ## PMPolylines library(leaflet) library(leafem) url_rivers = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/rivers_africa.pmtiles" ## NOTE: these will only render until a zoom level of 7!! leaflet() %>% addTiles() %>% addPMPolylines( url = url_rivers , layerId = "rivers" , group = "rivers" , style = paintRules( layer = "rivers_africa" , color = "blue" ) ) %>% setView(24, 2.5, 4)
## PMPolygons library(leaflet) library(leafem) url_nzb = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/nz-building-outlines.pmtiles" leaflet() %>% addTiles() %>% addPMPolygons( url = url_nzb , layerId = "nzbuildings" , group = "nzbuildings" , style = paintRules( layer = "nz-building-outlines" , fillColor = "pink" , stroke = "green" ) ) %>% setView(173.50, -40.80, 6) ## PMPoints library(leaflet) library(leafem) url_depoints = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/depoints.pmtiles" leaflet() %>% addTiles() %>% addPMPoints( url = url_depoints , layerId = "depoints" , group = "depoints" , style = paintRules( layer = "depoints" , fillColor = "black" , stroke = "white" , radius = 4 ) ) %>% setView(10, 51, 6) ## PMPolylines library(leaflet) library(leafem) url_rivers = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/rivers_africa.pmtiles" ## NOTE: these will only render until a zoom level of 7!! leaflet() %>% addTiles() %>% addPMPolylines( url = url_rivers , layerId = "rivers" , group = "rivers" , style = paintRules( layer = "rivers_africa" , color = "blue" ) ) %>% setView(24, 2.5, 4)
Create a Red-Green-Blue image overlay from a RasterStack
/
RasterBrick
or stars
object based on three layers.
Three layers (sometimes referred to as "bands" because they may represent
different bandwidths in the electromagnetic spectrum) are combined such
that they represent the red, green and blue channel. This function can
be used to make 'true (or false) color images' from Landsat and other
multi-band satellite images. Note, this text is plagiarized, i.e. copied
from plotRGB
.
addRasterRGB
and addStarsRGB
are aliases.
addRasterRGB( map, x, r = 3, g = 2, b = 1, quantiles = c(0, 1), domain = NULL, na.color = "#BEBEBE80", method = c("auto", "bilinear", "near"), ... ) addStarsRGB( map, x, r = 3, g = 2, b = 1, quantiles = c(0, 1), domain = NULL, na.color = "#BEBEBE80", method = c("auto", "bilinear", "near"), ... )
addRasterRGB( map, x, r = 3, g = 2, b = 1, quantiles = c(0, 1), domain = NULL, na.color = "#BEBEBE80", method = c("auto", "bilinear", "near"), ... ) addStarsRGB( map, x, r = 3, g = 2, b = 1, quantiles = c(0, 1), domain = NULL, na.color = "#BEBEBE80", method = c("auto", "bilinear", "near"), ... )
map |
a map widget object created from 'leaflet()“ |
x |
a 'RasterBrick', 'RasterStack' or 'stars“ raster object |
r |
integer. Index of the Red channel/band, between 1 and nlayers(x) |
g |
integer. Index of the Green channel/band, between 1 and nlayers(x) |
b |
integer. Index of the Blue channel/band, between 1 and nlayers(x) |
quantiles |
the upper and lower quantiles used for color stretching. If set to NULL, stretching is performed basing on 'domain' argument. |
domain |
the upper and lower values used for color stretching. This is used only if 'quantiles' is NULL. If both 'domain' and 'quantiles' are set to NULL, stretching is applied based on min-max values. |
na.color |
the color to be used for NA pixels |
method |
the method used for computing values of the new, projected raster image.
|
... |
additional arguments passed on to |
Tim Appelhans, Luigi Ranghetti
require(raster) require(stars) require(plainview) require(leaflet) leaflet() %>% addTiles(group = "OpenStreetMap") %>% addRasterRGB(plainview::poppendorf, 4,3,2, group = "True colours") %>% addStarsRGB(st_as_stars(plainview::poppendorf), 5,4,3, group = "False colours") %>% addLayersControl( baseGroups = c("Satellite"), overlayGroups = c("True colours", "False colours"), )
require(raster) require(stars) require(plainview) require(leaflet) leaflet() %>% addTiles(group = "OpenStreetMap") %>% addRasterRGB(plainview::poppendorf, 4,3,2, group = "True colours") %>% addStarsRGB(st_as_stars(plainview::poppendorf), 5,4,3, group = "False colours") %>% addLayersControl( baseGroups = c("Satellite"), overlayGroups = c("True colours", "False colours"), )
This function adds a layer to a map that is dependent on another layer.
The reactive layer will be shown/hidden when holding the Ctrl-button on your
keyboard and performing the action defined by on
. on
can be
either "click" (default) or "mouseover".
Note: srcLayer
needs to be added to the map using addGeoJSON
because we need to be able to link the two layers by a common attribute
defined by argument by
. Linking will be done via group
name
of srcLayer
.
addReactiveFeatures( map, x, srcLayer, by, on, group, layerId = NULL, options = NULL, style = NULL, updateStyle = NULL, popup = NULL, ... )
addReactiveFeatures( map, x, srcLayer, by, on, group, layerId = NULL, options = NULL, style = NULL, updateStyle = NULL, popup = NULL, ... )
map |
a mapview or leaflet object. |
x |
the (sf) features to be added to the map. |
srcLayer |
the group name of the source layer that |
by |
shared attribute between |
on |
the action to invoke the action. Can be one of "click" (default) and
"mouseover". The action will be triggered by holding Ctrl-key and performing |
group |
the group name for the object to be added to |
layerId |
the layerId. |
options |
options to be passed to the layer.
See e.g. |
style |
named list of styling instructions for the geometries in |
updateStyle |
named list of how to update the styling of the |
popup |
a character vector of the HTML content for the popups of layer |
... |
currently not used. |
library(leaflet) library(leafem) library(sf) library(geojsonsf) # create some random data che = st_as_sf(gadmCHE) if (require(lwgeom)) { pts = st_as_sf(st_sample(che, 200)) pts = st_join(pts, che[, "ID_1"]) che = sf_geojson(che) leaflet() %>% addTiles() %>% addGeoJSON(che, group = "che") %>% addReactiveFeatures( pts , srcLayer = "che" , by = "ID_1" , on = "click" , group = "pts" , style = list(color = "black", fillOpacity = 0.3) , updateStyle = list( opacity = 0.3 , fillOpacity = 0.3 , color = "forestgreen" , fillColor = "forestgreen" ) ) %>% addMouseCoordinates() %>% setView(lng = 8.31, lat = 46.75, zoom = 8) }
library(leaflet) library(leafem) library(sf) library(geojsonsf) # create some random data che = st_as_sf(gadmCHE) if (require(lwgeom)) { pts = st_as_sf(st_sample(che, 200)) pts = st_join(pts, che[, "ID_1"]) che = sf_geojson(che) leaflet() %>% addTiles() %>% addGeoJSON(che, group = "che") %>% addReactiveFeatures( pts , srcLayer = "che" , by = "ID_1" , on = "click" , group = "pts" , style = list(color = "black", fillOpacity = 0.3) , updateStyle = list( opacity = 0.3 , fillOpacity = 0.3 , color = "forestgreen" , fillColor = "forestgreen" ) ) %>% addMouseCoordinates() %>% setView(lng = 8.31, lat = 46.75, zoom = 8) }
Add stars layer to a leaflet map
addStarsImage( map, x, band = 1, colors = "Spectral", opacity = 1, attribution = NULL, layerId = NULL, group = NULL, project = FALSE, method = c("auto", "bilinear", "near"), maxBytes = 4 * 1024 * 1024, options = gridOptions(), data = getMapData(map), ... )
addStarsImage( map, x, band = 1, colors = "Spectral", opacity = 1, attribution = NULL, layerId = NULL, group = NULL, project = FALSE, method = c("auto", "bilinear", "near"), maxBytes = 4 * 1024 * 1024, options = gridOptions(), data = getMapData(map), ... )
map |
a mapview or leaflet object. |
x |
a stars layer. |
band |
the band number to be plotted. |
colors |
the color palette (see |
opacity |
the base opacity of the raster, expressed from 0 to 1 |
attribution |
the HTML string to show as the attribution for this layer |
layerId |
the layer id |
group |
the name of the group this raster image should belong to (see
the same parameter under |
project |
if |
method |
the method used for computing values of the new, projected raster image.
|
maxBytes |
the maximum number of bytes to allow for the projected image (before base64 encoding); defaults to 4MB. |
options |
a list of additional options, intended to be provided by
a call to |
data |
the data object from which the argument values are derived; by
default, it is the |
... |
currently not used. |
This is an adaption of addRasterImage
. See that documentation
for details.
library(stars) library(leaflet) tif = system.file("tif/L7_ETMs.tif", package = "stars") x = read_stars(tif) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addStarsImage(x, project = TRUE)
library(stars) library(leaflet) tif = system.file("tif/L7_ETMs.tif", package = "stars") x = read_stars(tif) leaflet() %>% addProviderTiles("OpenStreetMap") %>% addStarsImage(x, project = TRUE)
leaflet
or mapview
objectsBeing a wrapper around addLabelOnlyMarkers
, this
function provides a smart-and-easy solution to add custom text labels to an
existing leaflet
or mapview
map object.
addStaticLabels(map, data, label, group = NULL, layerId = NULL, ...)
addStaticLabels(map, data, label, group = NULL, layerId = NULL, ...)
map |
A |
data |
A |
label |
The labels to be placed at the positions indicated by 'data' as
|
group |
the group of the static labels layer. |
layerId |
the layerId of the static labels layer. |
... |
Additional arguments passed to
|
A labelled leaflet map
Florian Detsch, Lorenzo Busetto
## Not run: ## leaflet label display options library(leaflet) lopt = labelOptions(noHide = TRUE, direction = 'top', textOnly = TRUE) ## Add labels on a Leaflet map indata <- sf::st_read(system.file("shape/nc.shp", package="sf")) leaflet(indata) %>% addProviderTiles("OpenStreetMap") %>% addFeatures(.) %>% addStaticLabels(., label = indata$NAME) Modify styling - leaflet(indata) %>% addProviderTiles("OpenStreetMap") %>% addFeatures(.) %>% addStaticLabels(., label = indata$NAME, style = list("color" = "red", "font-weight" = "bold")) ## End(Not run)
## Not run: ## leaflet label display options library(leaflet) lopt = labelOptions(noHide = TRUE, direction = 'top', textOnly = TRUE) ## Add labels on a Leaflet map indata <- sf::st_read(system.file("shape/nc.shp", package="sf")) leaflet(indata) %>% addProviderTiles("OpenStreetMap") %>% addFeatures(.) %>% addStaticLabels(., label = indata$NAME) Modify styling - leaflet(indata) %>% addProviderTiles("OpenStreetMap") %>% addFeatures(.) %>% addStaticLabels(., label = indata$NAME, style = list("color" = "red", "font-weight" = "bold")) ## End(Not run)
Add tiled raster data pyramids from a local folder that was created with gdal2tiles.py (see https://gdal.org/en/latest/programs/gdal2tiles.html for details).
addTileFolder( map, folder, tms = TRUE, layerId = NULL, group = NULL, attribution = NULL, options = leaflet::tileOptions(), data = leaflet::getMapData(map) )
addTileFolder( map, folder, tms = TRUE, layerId = NULL, group = NULL, attribution = NULL, options = leaflet::tileOptions(), data = leaflet::getMapData(map) )
map |
a mapview or leaflet object. |
folder |
the (top level) folder where the tiles (folders) reside. |
tms |
whether the tiles are served as TMS tiles. |
layerId |
the layer id. |
group |
the group name for the tile layer to be added to |
attribution |
the attribution text of the tile layer (HTML). |
options |
a list of extra options for tile layers.
See |
data |
the data object from which the argument values are derived; by default, it is the data object provided to leaflet() initially, but can be overridden. |
Color options for addGeoRaster and addGeotiff
colorOptions( palette = NULL, breaks = NULL, domain = NULL, na.color = "#bebebe22" )
colorOptions( palette = NULL, breaks = NULL, domain = NULL, na.color = "#bebebe22" )
palette |
the color palette to use. Can be a set of colors or a
color generating function such as the result of |
breaks |
the breaks at which color should change. |
domain |
the value domain (min/max) within which color mapping should occur. |
na.color |
color for NA values (will map to NaN in Javascript). |
This function extends an existing layers control in a 'leaflet' map by adding custom views, home buttons, opacity controls, and legends. It enhances the functionality of a layers control created with 'leaflet' or 'leaflet.extras'.
extendLayersControl( map, view_settings, home_btns = FALSE, home_btn_options = list(), setviewonselect = TRUE, opacityControl = list(), includelegends = TRUE )
extendLayersControl( map, view_settings, home_btns = FALSE, home_btn_options = list(), setviewonselect = TRUE, opacityControl = list(), includelegends = TRUE )
map |
A 'leaflet' or 'mapview' object to which the extended layers control will be added. |
view_settings |
A list specifying the view settings for each layer. Each list element should contain either:
|
home_btns |
Logical. If 'TRUE', adds a "home" button next to each layer name in the layer control.
Clicking the home button zooms the map to the view specified for that layer in |
home_btn_options |
A list of options to customize the home button appearance and behavior. Possible options include: - ‘text': The text or emoji to display on the button (default is ’🏠'). - ‘cursor': CSS cursor style for the button (default is ’pointer'). - ‘class': CSS class name for the button (default is ’leaflet-home-btn'). - ‘styles': Semicolon separated CSS-string (default is ’float: inline-end;'). |
setviewonselect |
Logical. If 'TRUE' (default) sets the view when the layer is selected. |
opacityControl |
A list specifying the opacity control settings for each layer. Each list element should contain:
|
includelegends |
Logical. If 'TRUE' (default), appends legends to the layer control. Legends are matched to layers by their group name. The legends need to be added with corresponding layer IDs. |
This function generates JavaScript that listens for 'overlayadd' or 'baselayerchange' events
and automatically sets the view or zoom level according to the specified view_settings
.
If 'home_btns' is enabled, a home button is added next to each layer in the layer control.
When clicked, it zooms the map to the predefined view of that layer.
The opacity control slider allows users to adjust the opacity of layers. The legend will be appended
to the corresponding layer control, matched by the layer's group name.
A modified 'leaflet' map object with extended layers control including view controls, home buttons, opacity controls, and legends.
library(sf) library(leaflet) library(leafem) # Example data ########## breweries91 <- st_as_sf(breweries91) lines <- st_as_sf(atlStorms2005) polys <- st_as_sf(leaflet::gadmCHE) # View settings ########## view_settings <- list( "Base_tiles1" = list( coords = c(20, 50), zoom = 3 ), "Base_tiles2" = list( coords = c(-110, 50), zoom = 5 ), "breweries91" = list( coords = as.numeric(st_coordinates(st_centroid(st_union(breweries91)))), zoom = 8 ), "atlStorms2005" = list( coords = as.numeric(st_bbox(lines)), options = list(padding = c(110, 110)) ), "gadmCHE" = list( coords = as.numeric(st_bbox(polys)), options = list(padding = c(2, 2)), fly = TRUE ) ) # Opacity control settings ########## opacityControl <- list( "breweries91" = list( min = 0, max = 1, step = 0.1, default = 1, width = '100%', class = 'opacity-slider' ) ) # Legends ########## legends <- list( "breweries91" = "<div>Legend for breweries</div>" ) leaflet() %>% ## Baselayer addTiles(group = "Base_tiles1") %>% addProviderTiles("CartoDB", group = "Base_tiles2") %>% ## Overlays addCircleMarkers(data = breweries91, group = "breweries91") %>% addPolylines(data = lines, group = "atlStorms2005") %>% addPolygons(data = polys, group = "gadmCHE") %>% ## Extend Layers Control extendLayersControl( view_settings, home_btns = TRUE, home_btn_options = list( "Base_tiles1" = list(text = '🏡', cursor = 'ns-resize', class = 'homebtn'), "Base_tiles2" = list(text = '❤️', cursor = 'pointer'), "atlStorms2005" = list(text = '🌎', cursor = 'all-scroll'), "breweries91" = list(text = '🌎', styles = 'background-color: red'), "gadmCHE" = list(text = '🌎', styles = 'float: none;') ), opacityControl = opacityControl, includelegends = TRUE ) %>% ## LayersControl addLayersControl( baseGroups = c("Base_tiles1", "Base_tiles2"), overlayGroups = c("breweries91", "atlStorms2005", "gadmCHE"), options = layersControlOptions(collapsed = FALSE, autoZIndex = TRUE) )
library(sf) library(leaflet) library(leafem) # Example data ########## breweries91 <- st_as_sf(breweries91) lines <- st_as_sf(atlStorms2005) polys <- st_as_sf(leaflet::gadmCHE) # View settings ########## view_settings <- list( "Base_tiles1" = list( coords = c(20, 50), zoom = 3 ), "Base_tiles2" = list( coords = c(-110, 50), zoom = 5 ), "breweries91" = list( coords = as.numeric(st_coordinates(st_centroid(st_union(breweries91)))), zoom = 8 ), "atlStorms2005" = list( coords = as.numeric(st_bbox(lines)), options = list(padding = c(110, 110)) ), "gadmCHE" = list( coords = as.numeric(st_bbox(polys)), options = list(padding = c(2, 2)), fly = TRUE ) ) # Opacity control settings ########## opacityControl <- list( "breweries91" = list( min = 0, max = 1, step = 0.1, default = 1, width = '100%', class = 'opacity-slider' ) ) # Legends ########## legends <- list( "breweries91" = "<div>Legend for breweries</div>" ) leaflet() %>% ## Baselayer addTiles(group = "Base_tiles1") %>% addProviderTiles("CartoDB", group = "Base_tiles2") %>% ## Overlays addCircleMarkers(data = breweries91, group = "breweries91") %>% addPolylines(data = lines, group = "atlStorms2005") %>% addPolygons(data = polys, group = "gadmCHE") %>% ## Extend Layers Control extendLayersControl( view_settings, home_btns = TRUE, home_btn_options = list( "Base_tiles1" = list(text = '🏡', cursor = 'ns-resize', class = 'homebtn'), "Base_tiles2" = list(text = '❤️', cursor = 'pointer'), "atlStorms2005" = list(text = '🌎', cursor = 'all-scroll'), "breweries91" = list(text = '🌎', styles = 'background-color: red'), "gadmCHE" = list(text = '🌎', styles = 'float: none;') ), opacityControl = opacityControl, includelegends = TRUE ) %>% ## LayersControl addLayersControl( baseGroups = c("Base_tiles1", "Base_tiles2"), overlayGroups = c("breweries91", "atlStorms2005", "gadmCHE"), options = layersControlOptions(collapsed = FALSE, autoZIndex = TRUE) )
This function provides a versatile interface to add components to a
leaflet or mapview map. It takes functions such as "addMouseCoordinates"
or addLayersControl
and their respective arguments and adds
them to the map. Arguments must be named. Functions can be plain or
character strings.
garnishMap(map, ...)
garnishMap(map, ...)
map |
a mapview or leaflet object. |
... |
functions and their arguments to add things to a map. |
library(leaflet) m <- leaflet() %>% addProviderTiles("OpenStreetMap") garnishMap(m, addMouseCoordinates) ## add more than one with named argument library(leaflet) m1 <- garnishMap(m, addScaleBar, addMouseCoordinates, position = "bottomleft") m1
library(leaflet) m <- leaflet() %>% addProviderTiles("OpenStreetMap") garnishMap(m, addMouseCoordinates) ## add more than one with named argument library(leaflet) m1 <- garnishMap(m, addScaleBar, addMouseCoordinates, position = "bottomleft") m1
Imagequery options for addGeoRaster, addGeotiff and addCOG
imagequeryOptions( className = "info legend", position = c("topright", "topleft", "bottomleft", "bottomright"), type = c("mousemove", "click"), digits = NULL, prefix = "Layer" )
imagequeryOptions( className = "info legend", position = c("topright", "topleft", "bottomleft", "bottomright"), type = c("mousemove", "click"), digits = NULL, prefix = "Layer" )
className |
a character string to append to the control legend. |
position |
where to place the display field. Default is 'topright'. |
type |
whether query should occur on 'mousemove' or 'click'. Defaults to 'mousemove'. |
digits |
the number of digits to be shown in the display field. |
prefix |
a character string to be shown as prefix for the layerId. |
Styling options for PMTiles
paintRules( layer, fillColor = "#0033ff66", color = "#0033ffcc", do_stroke = TRUE, width = 0.5, radius = 3, stroke = "#000000", opacity = 1, dash = NULL )
paintRules( layer, fillColor = "#0033ff66", color = "#0033ffcc", do_stroke = TRUE, width = 0.5, radius = 3, stroke = "#000000", opacity = 1, dash = NULL )
layer |
the name of the layer in the PMTiles file to visualise. |
fillColor |
fill color for polygons |
color |
line color |
do_stroke |
logical, whether polygon borders should be drawn |
width |
line width |
radius |
point radius |
stroke |
color point border |
opacity |
point opacity |
dash |
either 'NULL' (default) for a solid line or a numeric vector of length 2 denoting segment length and spce between segments (in pixels), e.g. 'c(5, 3)' |
When adding additional base layers or overlay layers to an existing map,
updateLayersControl
will either update the existing layers control or
add a new one if map has none.
updateLayersControl( map, addBaseGroups = character(0), addOverlayGroups = character(0), position = "topleft", ... )
updateLayersControl( map, addBaseGroups = character(0), addOverlayGroups = character(0), position = "topleft", ... )
map |
A |
addBaseGroups |
group names of base layers to be added to layers control. |
addOverlayGroups |
group names of overlay layers to be added to layers control. |
position |
position of control: "topleft", "topright", "bottomleft", or "bottomright". |
... |
Further arguments passed to |
A leaflet map
object.
library(leaflet) map = leaflet() %>% addProviderTiles("OpenStreetMap", group = "OSM") %>% addProviderTiles("CartoDB.DarkMatter", group = "dark") %>% addCircleMarkers(data = breweries91, group = "brew") map # no layers control map %>% updateLayersControl(addBaseGroups = c("OSM", "dark"), addOverlayGroups = "brew")
library(leaflet) map = leaflet() %>% addProviderTiles("OpenStreetMap", group = "OSM") %>% addProviderTiles("CartoDB.DarkMatter", group = "dark") %>% addCircleMarkers(data = breweries91, group = "brew") map # no layers control map %>% updateLayersControl(addBaseGroups = c("OSM", "dark"), addOverlayGroups = "brew")