Rpolyhedra v0.4.0

0

Monthly downloads

0th

Percentile

Polyhedra Database

A polyhedra database scraped from various sources as R6 objects and 'rgl' visualizing capabilities.

Readme

Rpolyhedra

Polyhedra database scraped from public available sources using R6 objects and 'rgl' visualizing capabilities.

Release Usage Development

| minimal R version | Travis | | CRAN | | codecov |

How to get started

install.packages("Rpolyhedra")

How to get started (Development version)

Install the R package using the following commands on the R console:

install.packages(c("futile.logger", "rgl", "stringr", "R6", "testthat", "devtools"))
devtools::install_github("qbotics/Rpolyhedra")
library(Rpolyhedra)
# if want to switch to fullDB in user filespace, it will download the full database
switchToFullDatabase()

A simple example of 5 regular polyhedra

To get started execute the following commands:

# 1.  Obtain 5 regular solids
polyhedra.2.draw <- getAvailablePolyhedra(source = "netlib")
polyhedra.2.draw <- polyhedra.2.draw %>% 
                        filter(scraped.name %in%
                            c("tetrahedron", "octahedron", "cube", 
                               "icosahedron", "dodecahedron"))

# 2. Setup colors and scales
n <- nrow(polyhedra.2.draw)
polyhedron.colors <- rainbow(n)
polyhedron.scale <- 5

# 3. open and setup RGL window
open3d()
par3d(FOV = 1)
rgl.bg( sphere =FALSE, fogtype = "none", color=c("black"))
rgl.viewpoint(theta = 0, phi=0, zoom=0.8, fov=1)

# 4. for each polyhedron, setup rotation, position and render
for (i in seq_len(n)) {
  # Obtain polyhedron
  polyhedron.row <- polyhedra.2.draw[i,]
  polyhedron.name <- polyhedron.row$scraped.name
  polyhedron <- getPolyhedron(source = polyhedron.row$source, polyhedron.name)

  # Setup angles, position into transformationMatrix
  current.angle <- i/n * 2 * pi
  tm <- rotationMatrix(current.angle, 1, 0, 0)
  x.pos <- round(polyhedron.scale * sin(current.angle), 2)
  y.pos <- round(polyhedron.scale * cos(current.angle), 2)
  tm <- tm %*% translationMatrix(x.pos, y.pos, 0)

  # Render
  print(paste("Drawing ", polyhedron.name, " rotated ", round(current.angle, 2),
              " in (1,0,0) axis. Translated to (", x.pos, ",", y.pos, ",0)",
              " with color ", polyhedron.colors[i], sep = ""))
  shape.rgl <- polyhedron$getRGLModel(transformation.matrix = tm)
  shade3d(shape.rgl, color = polyhedron.colors[i])
}

sources

netlib

Includes 142 polyhedra definitions. The PHD format was created to describe the geometric polyhedron definitions derived mathematically by Andrew Hume and by the Kaleido program of Zvi Har'El.

PHD files were generated using poly2 library (no longer mantained). Althought the code is available, specific programming skills are required to run it.

PDH files can be found in extdata/www.netlib.org/polyhedra/index.html

Dmccooey

Includes 767 polyhedra definitions. The polyhedra database built by David Mccooey has an open format which has been scraped to feed RPolyhedra database

dmccooney files can be found in extdata/dmccooey.com/polyhedra/

Troubleshooting

devtools

Ubuntu

apt-get install libcurl4-openssl-dev

Windows

run end user CRAN version

OSX brew

brew install openssl

After, in R:

install.packages("devtools")

rgl

Ubuntu

sudo apt-get install r-cran-rgl

Functions in Rpolyhedra

Name Description
polyhedronToXML polyhedronToXML()
getAvailablePolyhedra getAvailablePolyhedra()
getAvailableSources getAvailableSources()
getPolyhedraObject getPolyhedraObject
getPolyhedron getPolyhedron()
scrapePolyhedraSources scrapePolyhedraSources()
switchToFullDatabase switchToFullDatabase()
PolyhedraDatabase.class PolyhedraDatabase
Rpolyhedra Rpolyhedra
scrapePolyhedra scrapePolyhedra()
No Results!

Vignettes of Rpolyhedra

Name
Rpolyhedra.Rmd
No Results!

Last month downloads

Details

Type Package
License MIT + file LICENSE
Encoding UTF-8
LazyData true
RoxygenNote 6.1.1
VignetteBuilder knitr
Collate 'polyhedra-lib.R' 'ledger-lib.R' 'db-lib.R' 'env-lib.R' 'package-lib.R' 'serialization-lib.R' 'public-lib.R' 'test-lib.R' 'zzz.R'
BugReports https://github.com/qbotics/Rpolyhedra/issues
URL https://github.com/qbotics/Rpolyhedra
NeedsCompilation no
Packaged 2019-01-03 16:47:01 UTC; kenarab
Repository CRAN
Date/Publication 2019-01-04 10:50:16 UTC

Include our badge in your README

[![Rdoc](http://www.rdocumentation.org/badges/version/Rpolyhedra)](http://www.rdocumentation.org/packages/Rpolyhedra)