R Markdown Presentation & Plotly

Create a web page presentation using R Markdown that features a plot created with Plotly.

library(plotly)
library(quantmod)
getSymbols("AAPL",src='yahoo')

## [1] "AAPL"

df <- data.frame(Date=index(AAPL),coredata(AAPL))
df <- tail(df, 100)

fig <- df %>% plot_ly(x = ~Date, type="candlestick",
          open = ~AAPL.Open, close = ~AAPL.Close,
          high = ~AAPL.High, low = ~AAPL.Low) 
fig