This Shiny application is about:

• Historical Stock Price
• Technical Indicator with Strategy
• Financial Data
• Stock Dividends

This application can be customized according to the request of the user.

library(tidyquant)

getSymbols(Symbols = "GOOG")

## [1] "GOOG"

head(GOOG)

##            GOOG.Open GOOG.High GOOG.Low GOOG.Close GOOG.Volume GOOG.Adjusted
## 2007-01-03  232.1299  237.4400 229.6940   232.9220    15470700      232.9220
## 2007-01-04  233.6243  241.0714 233.3005   240.7277    15834200      240.7277
## 2007-01-05  240.3491  242.8398 238.1623   242.6853    13795600      242.6853
## 2007-01-08  242.9344  244.0204 240.1997   240.8871     9544400      240.8871
## 2007-01-09  241.8186  243.2134 239.7015   241.8435    10803000      241.8435
## 2007-01-10  241.3105  245.8535 240.1200   243.8161    11981700      243.8161

library(webshot)
library(highcharter)

For OHLC type chart:

highchart(type = "stock") %>%
  hc_add_series(GOOG, type="ohlc")

For Candlestick type chart:

highchart(type = "stock") %>%
  hc_add_series(GOOG)

We can create several indicators to be added into the charts.

SMA_10 <- SMA(Cl(GOOG), n=10)
SMA_50 <- SMA(Cl(GOOG), n=50)

highchart(type = "stock") %>%
  hc_add_series(GOOG) %>%
  hc_add_series(SMA_10) %>%
  hc_add_series(SMA_50)

Thank you for looking at my Shiny project.