reload_data.R

# Reload data from list via Quandl

watchSymbols <- c(
    "GOOG/NYSE_TWTR",
    "GOOG/NASDAQ_FB"
)

watchNames <- c(
    "twitter",
    "facebook"
)

# merge to nx2
watchList <- cbind(watchNames, watchSymbols)

# assume API token is saved as variable 'q_token' in the current global env
library(Quandl)
Quandl.auth(q_token)

# function to iterate through watchList
reload_data <- function( wl ) {
    for( ridx in 1:nrow(wl) ) {
        df <- Quandl( watchList[ridx,][["watchSymbols"]] )
        df <- reverse_df( df )
        assign( watchList[ridx,][["watchNames"]], df, envir=.GlobalEnv )
    }
}