stockList <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1-oLLzUJ750Jr3M5ddidamFQmA2qRaVA7KKl948SEdbk/edit?usp=sharing")
ticker <- stockList$Ticker[2]
stockDatabase <- list()
addStockToDB <- function(ticker, stockDatabase){
l <- length(stockDatabase)
if(ticker %in% names(stockDatabase)){
return(stockDatabase)
}
stockDatabase[[l+1]] <- getSymbols(ticker, src ="yahoo", auto.assign = F)
names(stockDatabase)[l+1] <- ticker
return(stockDatabase)
}
stockDatabase <- addStockToDB(ticker, stockDatabase)
## 'getSymbols' currently uses auto.assign=TRUE by default, but will
## use auto.assign=FALSE in 0.5-0. You will still be able to use
## 'loadSymbols' to automatically load data. getOption("getSymbols.env")
## and getOption("getSymbols.auto.assign") will still be checked for
## alternate defaults.
##
## This message is shown once per session and may be disabled by setting
## options("getSymbols.warning4.0"=FALSE). See ?getSymbols for details.
##
## WARNING: There have been significant changes to Yahoo Finance data.
## Please see the Warning section of '?getSymbols.yahoo' for details.
##
## This message is shown once per session and may be disabled by setting
## options("getSymbols.yahoo.warning"=FALSE).