History: Profile_r_test9_rcharts_polychart

            {RR(echo="1" cacheby="pagename")}
# 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] <- "http://{{domain}}/rcharts_libraries/polycharts"
ex1$save("ex1.html")
{RR}

{CODE()}
{iframe name="myChart" width="850" height="500" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="temp/cache/{{domainslash_if_multitiki}}R_{{page}}/ex1.html"}
{CODE}

{iframe name="myChart1" width="850" height="500" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="temp/cache/{{domainslash_if_multitiki}}R_{{page}}/ex1.html"}

{RR(echo="1" cacheby="pagename")}
require('devtools', quietly = TRUE ) 
require('rCharts', quietly = TRUE ) 
## Example 2 Facetted Barplot
#newgraph
hair_eye = as.data.frame(HairEyeColor)
ex2 <- rPlot(Freq ~ Hair | Eye, color = 'Eye', data = hair_eye, type = 'bar')
ex2$LIB[2] <- "http://{{domain}}/rcharts_libraries/polycharts"
ex2$save("ex2.html")
{RR}

{CODE()}
{iframe name="myChart" width="850" height="500" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="temp/cache/{{domainslash_if_multitiki}}R_{{page}}/ex2.html"}
{CODE}

{iframe name="myChart2" width="850" height="500" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="temp/cache/{{domainslash_if_multitiki}}R_{{page}}/ex2.html"}

{RR(echo="1" cacheby="pagename")}
require('devtools', quietly = TRUE ) 
require('rCharts', quietly = TRUE ) 
## Example 3: Polychart
#newgraph
ex3 <- rPlot(mpg ~ wt | am + vs, data = mtcars, type = "point", color = "gear")
ex3$LIB[2] <- "http://{{domain}}/rcharts_libraries/polycharts"
ex3$save("ex3.html")
{RR}

{CODE()}
{iframe name="myChart" width="850" height="500" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="temp/cache/{{domainslash_if_multitiki}}R_{{page}}/ex3.html"}
{CODE}

{iframe name="myChart3" width="850" height="500" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="temp/cache/{{domainslash_if_multitiki}}R_{{page}}/ex3.html"}