getQuote <- function(ticks=c("^SPX","VTI")) { qRoot <- "https://query1.finance.yahoo.com/v7/finance/quote?" qRoot1<- "fields=symbol,longName,regularMarketPrice,regularMarketChange," qRoot2<- "regularMarketChangePercent,regularMarketTime&formatted=false&symbols=" qRoot<- paste(paste(q...