if (FALSE) {
# Get stored refresh token
refreshToken = readRDS('/secure/location/')
# generate a new access token
accessToken = schwab_auth_accessToken('consumerKey', refreshToken)
# Pass one or more tickers as a vector
# accessToken is optional once it is set
quoteSPY = schwab_priceQuote('SPY')
quoteList = schwab_priceQuote(c('GOOG','TSLA'), output = 'list', accessToken)
}
Run the code above in your browser using DataLab