---
title: "R Dashboard"
author: "Rupesh Bharadwaj"
date: "July 2, 2017"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    social: menu
    source_code: embed
---
```{r message=FALSE, warning=FALSE}
library(flexdashboard)
library(quantmod)
library(dygraphs)
library(lubridate)
```


Column {.tabset data-width=500}
-----------------------------------------------------------------------

###Close Price Comparission: Value

```{r message=FALSE, warning=FALSE}
tickers<-c("AAPL","MSFT","TWTR")
getSymbols(tickers)
closePrice<-do.call(merge, lapply(tickers, function(x) Cl(get(x))))
dateWindow<-c("2014-05-01", "2017-05-01")
dygraph(closePrice, main="Value", group="Stock") %>%
  dyRebase(value=100) %>%
  dyAxis("y", label="Close Price(USD)") %>%
  dyOptions(axisLineWidth = 1.5,  colors = RColorBrewer::brewer.pal(3, "Set1")) %>%
  dyRangeSelector(dateWindow = dateWindow)
```

###Close Price Comparission: Percent

```{r message=FALSE, warning=FALSE}
tickers<-c("AAPL","MSFT","TWTR")
getSymbols(tickers)
closePrice<-do.call(merge, lapply(tickers, function(x) Cl(get(x))))
dateWindow<-c("2014-05-01", "2017-05-01")
dygraph(closePrice, main="Value", group="Stock") %>%
  dyRebase(percent = TRUE) %>%
  dyAxis("y", label="Close Price(USD)") %>%
  dyOptions(axisLineWidth = 1.5,  colors = RColorBrewer::brewer.pal(3, "Set1")) %>%
  dyRangeSelector(dateWindow = dateWindow)
```

###Close Price Comparission: None


```{r message=FALSE, warning=FALSE}
tickers<-c("AAPL","MSFT","TWTR")
getSymbols(tickers)
closePrice<-do.call(merge, lapply(tickers, function(x) Cl(get(x))))
dateWindow<-c("2014-05-01", "2017-05-01")
dygraph(closePrice, main="None", group="Stock") %>%
  dyAxis("y", label="Close Price(USD)") %>%
  dyOptions(axisLineWidth = 1.5,  colors = RColorBrewer::brewer.pal(3, "Set1")) %>%
  dyRangeSelector(dateWindow = dateWindow)
```

Column {.tabset data-width=500}
-----------------------------------------------------------------------

### Apple
```{r message=FALSE, warning=FALSE} 
startdate<-ymd("2017-01-01")
invisible(getSymbols("AAPL", src = "yahoo", from=startdate))
Apple<-AAPL[,-5]
colnames(Apple)<-c("Open","High","Low","Close","Adjusted")
```

```{r message=FALSE, warning=FALSE}
dygraph(Apple, main = "Apple(AAPL)") %>%
  dyAxis("y", label="Price(USD)") %>%
  dyOptions(axisLineWidth = 1.5,  colors = RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyCandlestick()
```


### Microsoft

```{r message=FALSE, warning=FALSE}
startdate<-ymd("2017-01-01")
invisible(getSymbols("MSFT", src = "yahoo", from=startdate))
Microsoft<-MSFT[,-5]
colnames(Microsoft)<-c("Open","High","Low","Close","Adjusted")
```

```{r message=FALSE, warning=FALSE}
dygraph(Microsoft, main = "Microsoft(MSFT)") %>%
  dyAxis("y", label="Price(USD)") %>%
  dyOptions(axisLineWidth = 1.5,  colors = RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyCandlestick()
```


### Twitter

```{r message=FALSE, warning=FALSE}
startdate<-ymd("2017-01-01")
invisible(getSymbols("TWTR", src = "yahoo", from=startdate))
Twitter<-TWTR[,-5]
colnames(Twitter)<-c("Open","High","Low","Close","Adjusted")
```

```{r message=FALSE, warning=FALSE}
dygraph(Twitter, main = "Twitter(TWTR)") %>%
  dyAxis("y", label="Price(USD)") %>%
  dyOptions(axisLineWidth = 1.5,  colors = RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyCandlestick()
```