---
title: "PallaviSaitu_ANYL512_Dashboard"
author: "Pallavi Saitu"
date: "3/12/2019"
output: 
  flexdashboard::flex_dashboard:
    social: menu
    source_code: embed
---

```{r setup, message=FALSE, warning=FALSE}
#install.packages("quantmod")
#install.packages("flexdashboard")
#install.packages("dygraphs")
#install.packages("lubridate")
#install.packages("RColorBrewer")
#install.packages("DT")
library(quantmod)
library(plyr)
library(flexdashboard)
library(dygraphs)
library(lubridate)
library(RColorBrewer)
library(DT)
```

Column {data-width=500}
-------------------------------------------------------------------
```{r message=FALSE, warning=FALSE}

what_metrics <- yahooQF(c("Price/Sales", 
                          "P/E Ratio",
                          "Price/EPS Estimate Next Year",
                          "Dividend Yield", 
                          "Market Capitalization"))

tickers <- c("FB", "SAP", "ORCL")

# Not all the metrics are returned by Yahoo.
metrics <- getQuote(paste(tickers, sep="", collapse=";"), what=what_metrics)

#Add tickers as the first column and remove the first column which had date stamps
metrics <- data.frame(Symbol=tickers, metrics[,2:length(metrics)]) 

#Change colnames
colnames(metrics) <- c("Symbol", "Revenue Multiple", "Earnings Multiple", "Div Yield", "Market Cap")

#Persist this to the csv file
DT::datatable(metrics) %>%
  formatRound(columns=c('Revenue Multiple', 'Earnings Multiple', 'Div Yield'), digits=2)
```


### Closing Price Comparison
```{r, echo=FALSE, message = FALSE}
ticker <- c("FB", "SAP", "ORCL")
invisible(getSymbols(ticker, from="2017-01-01", to="2018-12-18"))
closing_price <- do.call(merge, lapply(ticker, function(x) Cl(get(x))))

dateperiod<-c("2017-01-01", "2018-12-18")
dygraph(closing_price, main="CLOSING PRICE (USD)", group="Stock") %>%
    dyAxis("y", label="Closing Price (USD)") %>%
    dyOptions(axisLineWidth = 2.0,  colors = RColorBrewer::brewer.pal(5, "Set2")) %>%
    dyHighlight(highlightSeriesBackgroundAlpha = 1.0,
              highlightSeriesOpts = list(strokeWidth = 3)) %>%
    dyRangeSelector(height = 45)
```

Column {data-width=500}
-----------------------------------------------------------------
###Facebook

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

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



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

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


### Oracle 

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

```{r message=FALSE, warning=FALSE}
dygraph(Oracle, main = "ORACLE") %>%
  dyAxis("y", label="Price (USD)") %>%
  dyOptions(axisLineWidth = 3,  colors = RColorBrewer::brewer.pal(5, "Set3")) %>%
  dyCandlestick()
```