styleSingle: Single symbol styling

In chgrl/leafletR: Interactive Web-Maps Based on the Leaflet JavaScript Library

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

A single symbol style object.

Note

There is a known issue with Safari browser: maps with four or more marker layers may cause problems with popups.

Author(s)

Christian Graul

See Also

styleGrad, styleCat, leaflet

Examples

## 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)

chgrl/leafletR documentation built on March 24, 2022, 7:53 a.m.