Learn R Programming

leafletR (version 0.4-0)

styleSingle: Single symbol styling

Description

Creates a single symbol style.

Usage

styleSingle(col, lwd, alpha, fill, fill.alpha, rad, marker) singles(col, lwd, alpha, fill, fill.alpha, rad, marker)

Arguments

col
Color used for lines, i.e. lines itself, borders of polygons and circle borders (points). Color might be given as name, number [0-8] or hexadecimal code. If fill is not specified, col is used for border and circle area. If col is NA, the border is omitted.
lwd
Line width in number of pixels -- default is 2.
alpha
Opacity of a line or border, as numeric value between 0 (fully transparent) and 1 (opaque).
fill
Fill color used for polygons and circles (points). Color might be given as name, number [0-8] or hexadecimal code. If fill is NA, the circle area is left blank.
fill.alpha
Opacity of a polygon or circle area, as numeric value between 0 (fully transparent) and 1 (opaque).
rad
Radius of circles (points), in number of pixels -- default is 10.
marker
Color (given like col), or a vector of label (see https://www.mapbox.com/maki/ for available labels), color (given like col) and size (s=small, m=medium, l=large). Points are displayed as markers (all other arguments are ignored).

Value

See Also

styleGrad, styleCat, leaflet

Examples

Run this code
## Not run: 
# ## point data ##
# # prepare data
# data(quakes)
# dat <- toGeoJSON(data=quakes, dest=tempdir())
# 
# # change circle borders
# # note: if fill color is not specified, col is also used as fill color 
# sty <- styleSingle(col=2, lwd=1, alpha=1)
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# # change fill color, alpha and radius
# sty <- styleSingle(fill="red", fill.alpha=1, rad=2)
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# # no border
# sty <- styleSingle(col=NA)
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# # blank circle area
# sty <- styleSingle(fill=NA)
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# # simple colored markers
# sty <- styleSingle(marker="red") # only color
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# # markers with label, color and size
# sty <- styleSingle(marker=c("triangle", "#E41A1C", "s"))
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# # change all arguments
# sty <- styleSingle(col="#d4d4d4", lwd=1, alpha=0.8, 
#   fill="darkred", fill.alpha=0.4, rad=4)
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# 
# ## line data ##
# # prepare data
# # (httr package required)
# dat <- toGeoJSON(data=system.file(package="leafletR", "files", 
#   "lynx.zip"), name="Lynx telemetry", dest=tempdir())
# 
# # style
# sty <- styleSingle(col="#bb650b", lwd=3, alpha=0.8)
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# 
# ## polygon data ##
# # prepare data
# dat <- system.file(package="leafletR", "files", "park_sk.geojson")
# 
# # change borders
# # note: if fill color is not specified, col is also used as fill color 
# sty <- styleSingle(col=3, lwd=2, alpha=1)
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# # change fill color and alpha
# sty <- styleSingle(fill="darkgreen", fill.alpha=0.8)
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# # no border
# sty <- styleSingle(col=NA)
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# # blank polygon area
# sty <- styleSingle(fill=NA)
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# 
# # change all arguments
# sty <- styleSingle(col="#006400", lwd=5, alpha=0.8, 
#   fill="darkgreen", fill.alpha=0.4)
# map <- leaflet(data=dat, dest=tempdir(), style=sty)
# ## End(Not run)

Run the code above in your browser using DataLab