test_symbols <- list("AAPL", c("AAPL", "MSFT"), c("AAPL", "MSFT", "AMZN"))
test_cols <- c("open", "high", "low", "close", "adjclose", "volume")