Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/ytdai/easySVG
[R package] An Easy SVG Element Generator
https://github.com/ytdai/easySVG
Last synced: 20 days ago
JSON representation
[R package] An Easy SVG Element Generator
- Host: GitHub
- URL: https://github.com/ytdai/easySVG
- Owner: ytdai
- License: other
- Created: 2017-10-24T06:49:37.000Z (about 7 years ago)
- Default Branch: master
- Last Pushed: 2018-12-10T14:08:24.000Z (about 6 years ago)
- Last Synced: 2024-10-12T15:46:29.011Z (2 months ago)
- Language: R
- Homepage:
- Size: 43.9 KB
- Stars: 12
- Watchers: 3
- Forks: 0
- Open Issues: 2
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
- jimsghstars - ytdai/easySVG - [R package] An Easy SVG Element Generator (R)
README
# [](https://travis-ci.org/ytdai/easySVG) [](https://cran.r-project.org/package=easySVG) [](http://www.r-pkg.org/pkg/easySVG)
easySVG package
===============
> An Easy SVG Element Generator
## Introduction
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
``` r
# 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
``` r
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")
```
