1. require(rCharts)
  2. require(quantmod)
  4. spy <- getSymbols("SPY",auto.assign=FALSE)
  5. colnames(spy) <- c("open","high","low","close","volume","adjusted")
  7. spy.df <- data.frame(index(spy),spy)
  8. colnames(spy.df)[1] <- "date"
  10. nOHLC <- nPlot(
  11.   x = "date",
  12.   y = "close",
  13.   data = spy.df,
  14.   type = "ohlcBar"
  15. )
  16. nOHLC$srccode = 
  17.   "nOHLC$srccode"
  18. nOHLC