---
title: "Dashboard Laboratory"
author: "Ishani Wijeratne"
date: "10/29/2017"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---


```{r setup, include=FALSE}
library(flexdashboard)
```

```{r message=FALSE}
library(PerformanceAnalytics)
library(quantmod)
library(dygraphs)
library(lubridate)


```
    

Row  {data-height=500}
-----------------------------------------------------------------------

### Twitter

```{r}

twitterFromGoogle <- as.data.frame(getSymbols("TWTR", src="google", env = NULL))
twitterFromGoogle <- cbind(date=as.Date(rownames(twitterFromGoogle)),twitterFromGoogle)
DT::datatable(twitterFromGoogle)

```

### Microsoft

```{r}
microsoftFromGoogle <- as.data.frame(getSymbols("MSFT",src="google", env = NULL))
microsoftFromGoogle <- cbind(date=as.Date(rownames(microsoftFromGoogle)),microsoftFromGoogle)
DT::datatable(microsoftFromGoogle)
```


### Apple

```{r}
appleFromGoogle <- as.data.frame(getSymbols("AAPL", src="google", env = NULL))
appleFromGoogle <- cbind(date=as.Date(rownames(appleFromGoogle)),appleFromGoogle)
DT::datatable(appleFromGoogle)
```

Row {.tabset}
-----------------------------------------------------------------------

### Twitter

```{r}
invisible(getSymbols("TWTR", src = "google"))
Twitter <- TWTR
dygraph(TWTR[, -5], main = "Twitter Stock Daily Values") %>%
  dyHighlight(highlightCircleSize = 6,
              highlightSeriesOpts = list(strokeWidth = 1),
              highlightSeriesBackgroundAlpha = 1) %>%
  dyCandlestick() %>%
  dyAxis("y", label="Stock Price") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyRangeSelector(height = 100)
```




### Microsoft

```{r}
invisible(getSymbols("MSFT", src = "google"))
Microsoft <- MSFT
dygraph(MSFT[, -5], main = "Microsoft Stock Daily Values") %>%
  dyHighlight(highlightCircleSize = 6,
              highlightSeriesOpts = list(strokeWidth = 1),
              highlightSeriesBackgroundAlpha = 1) %>%
  dyCandlestick() %>%
  dyAxis("y", label="Stock Price") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyRangeSelector(height = 100)
```



### Apple

```{r}

invisible(getSymbols("AAPL", src = "google"))
APPLE <- AAPL
dygraph(APPLE[, -5], main = "Apple Stock Daily Values") %>%
  dyHighlight(highlightCircleSize = 6,
              highlightSeriesOpts = list(strokeWidth = 1),
              highlightSeriesBackgroundAlpha = 1) %>%
  dyCandlestick() %>%
  dyAxis("y", label="Stock Price") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyRangeSelector(height = 100)
```