create_usgs_pattern: Create an SVG pattern from the USGS library

In coolbutuseless/svgpatternusgs: USGS SVG Patterns

Description

Create an SVG pattern from the USGS library

Usage

create_usgs_pattern(
  usgs_code = 601,
  spacing = 20,
  fill = "#ffffff",
  alpha = 1,
  angle = 0,
  id = NULL
)

Arguments

usgs_code	USGS code for a pattern
spacing	size of pattern
fill	fill colour
alpha	default: 1.0 (opaque)
angle	angle
id	id to use for pattern. default: NULL means to generate automatically

Value

minisvg::SVGPattern object

Examples

## Not run: 
# Create an SVG document
library(minisvg)
doc   <- minisvg::svg_doc()

# Create the pattern and add to the SVG definitions
my_pattern <- create_usgs_pattern(usgs_code = 601, spacing = 100)
doc$defs(my_pattern)

# Create a rectangle with the animation
rect  <- stag$rect(
  x      = "10%",
  y      = "10%",
  width  = "80%",
  height = "80%",
  stroke = 'black',
  fill   = my_pattern
)

# Add this rectangle to the document, show the SVG text, then render it
doc$append(rect)
doc
doc$show()

## End(Not run)

coolbutuseless/svgpatternusgs documentation built on Feb. 2, 2020, 12:05 a.m.