1. #install_github("rCharts","timelyportfolio","test-speedimprove")
  3. require(rCharts)
  4. #get data used by dimple for all of its examples as a first test
  5. data <- read.delim(
  6.   "//pmsi-alignalytics.github.io/dimple/data/example_data.tsv"
  7. )
  9. #eliminate . to avoid confusion in javascript
  10. colnames(data) <- gsub("[.]","",colnames(data))
  12. #example 1 vt bar
  13. d1 <- dPlot(
  14.   x ="Month" ,
  15.   y = "UnitSales",
  16.   data = data,
  17.   type = "area"
  18. )
  19. d1$xAxis(orderRule = "Date")
  20. d1$addControls("y", value = "UnitSales", values = names(data))
  21. d1$addControls("groups", value = "", values = names(data))
  22. d1