---
title: "Stock Investment Analysis Dashboard"
Authur: Yining Jia
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(quantmod)
library(plyr)
library(dygraphs)
library(pdfetch)
library(DT)
library(TTR)
library(xts)
library(scales)

tickers <- c("NSRGY", "MDLZ", "HSY", "LISN.SW")
```

Row {data-height=180}
-----------------------------------------------------------------------

### Nestle

```{r}
change_NSRGY <- getQuote("NSRGY",what = yahooQF(c("Change in Percent")))
valueBox(value = paste(round(change_NSRGY[2],digits=2),'%'), caption = "NSRGY Change", color = ifelse(change_NSRGY[2] > 0, "success", "warning"))
```


### Mondelez
```{r}
change_MDLZ <- getQuote("MDLZ",what = yahooQF(c("Change in Percent")))
valueBox(value = paste(round(change_MDLZ[2],digits=2),'%'), caption = "MDLZ Change", color = ifelse(change_MDLZ[2] > 0, "success", "warning"))
```


### Hershey

```{r}
change_HSY <- getQuote("HSY",what = yahooQF(c("Change in Percent")))
valueBox(value = paste(round(change_HSY[2],digits=2),'%'), caption = "HSY Change", color = ifelse(change_HSY[2] > 0, "success", "warning"))
```


### Lindt&Sprungli

```{r}
change_LISN.SW <- getQuote("LISN.SW",what = yahooQF(c("Change in Percent")))
valueBox(value = paste(round(change_LISN.SW[2],digits=2),'%'), caption = "LISN.SW Change", color = ifelse(change_LISN.SW[2] > 0, "success", "warning"))
```

### NASDAQ INDEX

```{r}
change_IXIC <- getQuote("^IXIC",what = yahooQF(c("Change in Percent")))
valueBox(value = paste(round(change_IXIC[2],digits=2),'%'), caption = "NASDAQ Change", color = ifelse(change_IXIC[2] > 0, "success", "warning"))
```

### DOW JONES INDEX
```{r}
change_DJI <- getQuote("^DJI",what = yahooQF(c("Change in Percent")))
valueBox(value = paste(round(change_DJI[2],digits=2),'%'), caption = "DOW JONES Change", color = ifelse(change_DJI[2] > 0, "success", "warning"))
```




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

### NESTLE 3-year Candlestick

```{r}
symbol <- getSymbols(tickers, src = 'yahoo', auto.assign = TRUE, warnings = FALSE, from = '2016-01-01')
dygraph(MDLZ[,1:4], main = "Nestle S.A.") %>% 
  dyCandlestick() %>% 
  dyAxis("y", label="Price") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(5, "Set2")) %>%
  dyHighlight(highlightCircleSize = 3,
              highlightSeriesBackgroundAlpha = 1) %>%
  dyRangeSelector(height = 25)%>% 
  dyLegend(show = "onmouseover")
```

### MONDELEZ 3-year Candlestick

```{r}
symbol <- getSymbols(tickers, src = 'yahoo', auto.assign = TRUE, warnings = FALSE, from = '2016-01-01')
dygraph(MDLZ[,1:4], main = "Mondelez International, Inc.") %>% 
  dyCandlestick() %>% 
  dyAxis("y", label="Price") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(5, "Set2")) %>%
  dyHighlight(highlightCircleSize = 3,
              highlightSeriesBackgroundAlpha = 1) %>%
  dyRangeSelector(height = 25)%>% 
  dyLegend(show = "onmouseover")
```

### HERSHEY 3-year Candlestick

```{r}
symbol <- getSymbols(tickers, src = 'yahoo', auto.assign = TRUE, warnings = FALSE, from = '2016-01-01')
dygraph(HSY[,1:4], main = "Hershey Company") %>% 
  dyCandlestick() %>% 
  dyAxis("y", label="Price") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(5, "Set2")) %>%
  dyHighlight(highlightCircleSize = 3,
              highlightSeriesBackgroundAlpha = 1) %>%
  dyRangeSelector(height = 25)%>% 
  dyLegend(show = "onmouseover")
```

### Lindt&Sprungli 3-year Candlestick

```{r}
symbol <- getSymbols(tickers, src = 'yahoo', auto.assign = TRUE, warnings = FALSE, from = '2016-01-01')
dygraph(LISN.SW[,1:4], main = "LISN.SW Inc.") %>% 
  dyCandlestick() %>% 
  dyAxis("y", label="Price") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(5, "Set2")) %>%
  dyHighlight(highlightCircleSize = 3,
              highlightSeriesBackgroundAlpha = 1) %>%
  dyRangeSelector(height = 25)%>% 
  dyLegend(show = "onmouseover")
```

Row {data-height=420}
-----------------------------------------------------------------------
### Table View
```{r}
## fetch 1-year historical trading data
what_metrics <- yahooQF(c("Previous Close",
                          "Volume",
                          "P/E Ratio",
                          "Price/EPS Estimate Next Year",
                          "52-week Low",
                          "52-week High",
                          "Market Capitalization"))

metrics <- getQuote(paste(tickers, sep="", collapse=";"), what=what_metrics)
metrics <- data.frame(Symbol=tickers, metrics[,2:length(metrics)])
colnames(metrics) <- c("Symbol", 
                       "Previous Close",
                       "Volume",
                       "P/E Ratio",
                       "Price/EPS Estimate Next Year",
                       "52-week Low",
                       "52-week High",
                       "Market Cap")

## print table view
datatable(metrics)
```