An Easy SVG Basic Elements Generator

This SVG elements generator can easily generate SVG elements such as rect, line, circle, ellipse, polygon, polyline, text and group. Also, it can combine and output SVG elements into a SVG file.


The R package 'easySVG' can generate SVG elements easily.

This package is an easy SVG elements generator. It can easily generate svg elements such as rect, line, circle, ellipse, polygon polyline, text and make group. Also, it can output svg elements into a svg file.

Installation

Github

# Install the cutting edge development version from GitHub:
# install.packages("devtools")
devtools::install_github("ytdai/easySVG")

Zip/Tarball

  1. Download the appropriate zip file or tar.gz file from Github
  2. Unzip the file and change directories into the easySVG directory
  3. Run R CMD INSTALL pkg

Basic usage

library(easySVG)
 
line.1 <- line.svg(x1 = 50, y1 = 20, x2 = 150, y2 = 20)
message(line.1)
 
line.2 <- line.svg(x1 = 50, y1 = 40, x2 = 150, y2 = 40, stroke = "red", stroke.width = 3)
message(line.2)
 
rect.1 <- rect.svg(x = 50, y = 60, width = 100, height = 10, fill = "blue")
message(rect.1)
 
rect.2 <- rect.svg(x = 50, y = 80, width = 100, height = 5, fill = "yellow", stroke = "none")
message(rect.2)
 
circle.1 <- circle.svg(cx = 80, cy = 100, r = 10, fill = "blue")
message(circle.1)
 
circle.2 <- circle.svg(cx = 120, cy = 100, r = 5, fill = "red", stroke = "none")
message(circle.2)
 
ellipse.1 <- ellipse.svg(cx = 100, cy = 120, rx = 20, ry = 5, fill = "blue")
message(ellipse.1)
 
points <- matrix(c( 50, 100, 120, 140, 135, 145), nrow = 3, ncol = 2)
 
polygon.1 <- polygon.svg(points = points, fill = "green", stroke = "none")
message(polygon.1)
 
points <- matrix(c( 50, 100, 120, 160, 155, 165), nrow = 3, ncol = 2)
 
polyline.1 <- polyline.svg(points = points)
message(polyline.1)
 
text <- c("line.1", "line.2", "rect.1 - rect.2",
          "circle.1", "circle.2", "ellipse.1",
          "polygon.1", "polyline.1")
 
text.elements <- lapply(1:length(text), 
                        function(x) get.text.svg(x = 10, y = 20*x, text.content = text[x], font.size = 6))
 
text.elements <- unlist(text.elements)
 
content <- list(line.1, line.2, rect.1, rect.2,
                circle.1, circle.2, ellipse.1,
                polygon.1, polyline.1, text.elements)
pack.svg(width = 200, height = 200, pack.content = content, output.svg.name = "eleSVG.svg")

News

Reference manual

It appears you don't have a PDF plugin for this browser. You can click here to download the reference manual.

install.packages("easySVG")

0.1.0 by Yuting Dai, a year ago


https://github.com/ytdai/easySVG


Report a bug at https://github.com/ytdai/easySVG/issues


Browse source code at https://github.com/cran/easySVG


Authors: Yuting Dai [aut, cre]


Documentation:   PDF Manual  


MIT + file LICENSE license


Suggests knitr, rmarkdown


See at CRAN