Tiki & PluginR training

RR Code
# Testing rCharts from http://ramnathv.github.io/rCharts/
if(!require(devtools)){ install.packages("devtools", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
require('devtools', quietly = TRUE )
if(!require(rCharts)){ install_github('rCharts', 'ramnathv') }

## Example 1 Facetted Scatterplot
names(iris) = gsub("\\.", "", names(iris))
ex1 <- rPlot(SepalLength ~ SepalWidth | Species, data = iris, color = 'Species', type = 'point')
ex1$LIB[2] <- "https://r.tiki.org/rcharts_libraries/polycharts"
ex1$save("ex1.html")

RR Code
require('devtools', quietly = TRUE )
require('rCharts', quietly = TRUE )
## Example 2 Facetted Barplot
png(filename = "/var/www/tiki18farm/temp/cache/r.tiki.org/R_r_test09_rcharts_polychart/a808fbc11b6497604b3aeeec113870cc_2.png", width = , height = , units = "px", pointsize = , bg = "transparent" , res = 72)
hair_eye = as.data.frame(HairEyeColor)
ex2 <- rPlot(Freq ~ Hair | Eye, color = 'Eye', data = hair_eye, type = 'bar')
ex2$LIB[2] <- "https://r.tiki.org/rcharts_libraries/polycharts"
ex2$save("ex2.html")

RR Code
require('devtools', quietly = TRUE )
require('rCharts', quietly = TRUE )
## Example 3: Polychart
png(filename = "/var/www/tiki18farm/temp/cache/r.tiki.org/R_r_test09_rcharts_polychart/93b76d54d3d562e7e45c1b65b1a5173a_2.png", width = , height = , units = "px", pointsize = , bg = "transparent" , res = 72)
ex3 <- rPlot(mpg ~ wt | am + vs, data = mtcars, type = "point", color = "gear")
ex3$LIB[2] <- "https://r.tiki.org/rcharts_libraries/polycharts"
ex3$save("ex3.html")