# requires dev branch of rCharts installed
# devtools::install_github('ramnathv/rCharts@dev')

library(rCharts)
h1 <- hPlot(Pulse ~ Height, 
  data = MASS::survey, 
  type = "scatter", 
  group = "Exer"
)

# choose theme dark-blue.js, dark-unica.js, gray.js, grid-light.js,
# grid.js, sand-signika.js, skies.js

theme = 'gray.js'
theme_url = sprintf('//rawgithub.com/highslide-software/highcharts.com/master/js/themes/%s', theme)


h1$setTemplate(afterScript =
  sprintf("<script src='%s'></script>", theme_url)
)
h1