# NOT RUN {
# }
# NOT RUN {
library("quantmod")
usdjpy <- getSymbols("USD/JPY", src="oanda", auto.assign = FALSE)
eurkpw <- getSymbols("EUR/KPW", src="oanda", auto.assign = FALSE)
highchart(type = "stock") %>%
hc_add_series_xts(usdjpy, id = "usdjpy") %>%
hc_add_series_xts(eurkpw, id = "eurkpw")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab