stock_presentation.txt

---
title: "Stock Presentation"
output: ioslides_presentation
params: 
  stock: GOOG
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE); knitr::opts_chunk$set(warning = FALSE) #-- Hide code and messages
library(magrittr); library(dygraphs) #-- Load needed libraries
stock <- quantmod::getSymbols(params$stock, auto.assign = FALSE) #-- Get stock data
```

## Trade Volume since 2016 - `r params$stock`

```{r}
dygraph(stock[c('2016','2017'), 5]) %>% dyRangeSelector() 
```

## Daily Price range for 2017 - `r params$stock`

```{r}
dygraph(stock[c('2017'), c(1:4)]) %>% dyCandlestick() 
```

## Last 7 Days - `r params$stock`

```{r}
 DT::datatable(tail(stock[,c(1:4)],7)) 
```