library(dygraphs) library(quantmod) library(flexdashboard) getSymbols(c("MSFT", "HPQ", "INTC"), from = "2014-01-01", auto.assign=TRUE)
dygraph(MSFT[,2:4], group = "stocks") %>% dySeries(c("MSFT.Low", "MSFT.Close", "MSFT.High"), label = "MSFT")
dygraph(HPQ[,2:4], group = "stocks") %>% dySeries(c("HPQ.Low", "HPQ.Close", "HPQ.High"), label = "HPQ")
dygraph(INTC[,2:4], group = "stocks") %>% dySeries(c("INTC.Low", "INTC.Close", "INTC.High"), label = "INTC")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.