RR Code
# Testing rCharts & d3, from http://timelyportfolio.blogspot.com.es/2013/04/d3-r-with-rcharts-and-slidify.html

# Set a mirror, in case the required packages have dependencies, and those dependencies do not indicate which mirror to install the package from.
r <- getOption("repos")
r["CRAN"] <- "http://ftp.heanet.ie/mirrors/cran.r-project.org/"
options(repos=r)
# Update packages first
update.packages(ask = FALSE, repos = 'http://cran.rstudio.org')

# if you have not installed slidify, slidifyLibraries, or rCharts
if(!require(devtools)){ install.packages("devtools", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
require('devtools', quietly = TRUE )
if(!require(slidify)){ install_github('slidify', 'ramnathv', ref = 'dev') }
require(slidify, quietly = TRUE)
if(!require(rCharts)){ install_github('rCharts', 'ramnathv') }
if(!require(codetools)){ install.packages("codetools", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
require(codetools, quietly = TRUE )
if(!require(slidifyLibraries)){ install_github('slidifyLibraries', 'ramnathv', ref = 'dev') } # optional

# get data from downloaded NYT tsv and inject in through params
# download repo and unzip to Downloads folder
if(!require(downloader)){ install.packages("downloader", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
require(downloader, quietly = TRUE )
download( 'https://github.com/timelyportfolio/rCharts_512paths/archive/gh-pages.zip', 'rCharts_512paths.zip' )
# If you are in multitiki, jump 3 directories for the directory to save the files
#unzip('rCharts_512paths.zip', exdir = '../../../public/')
# Alternatively, jump just two.
unzip('rCharts_512paths.zip', exdir = '../../public/')

# Set the working directory
# If you are in multitiki, jump 3 directories
#setwd('../../../public/rCharts_512paths-gh-pages')
# Alternatively, jump just two.
setwd('../../public/rCharts_512paths-gh-pages')

# plot the data
require(rCharts, quietly = TRUE )
data <- read.delim(file = "data/states.tsv")
p1 <- rCharts$new()
getwd();
p1$field("lib", "libraries/widgets/x512paths")
p1$set(data = toJSONArray(data), dom = NULL)
# We have to fix some relative path which seems to be wrong for its equivalent absolute path
p1$LIB[2] <- paste("https://r.tiki.org/temp/public/rCharts_512paths-gh-pages", "/", p1$lib, sep="")
p1$templates$script <- paste(p1$LIB[2], p1$templates$script, sep="")
# Here we don't create the chart on the fly with a random page name in an uncontroled directory server side, but instead, we save the p1 object as html page ni a defined-by-us path & filename.
# Path, by default, is the working directory
#p1
p1$save('mychart.html')