## 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")
# ## End(Not run)
Run the code above in your browser using DataLab