## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----load, echo=TRUE----------------------------------------------------------
library(Riex)

## ----symbol, echo=TRUE--------------------------------------------------------
x <- "TSLA"

## ----period, echo=TRUE--------------------------------------------------------
r <- "6m"

## ---- echo=FALSE, message=FALSE, fig.cap='TSLA 6 Months Chart', fig.align='center'----
knitr::include_graphics("./TSLA_6M_Chart.png")

## ---- echo=FALSE, message=FALSE, fig.cap='TSLA Logo', fig.align='center'------
knitr::include_graphics("./TSLA.png")

## ---- echo=FALSE, message=FALSE, fig.cap='Hadley Wickham Quote', fig.align='center'----
knitr::include_graphics("./HadleyWickham_Quote.png")