R/get_access.R

In causality-loop/mnmt: Mot Nam, Mot Thang

get_access <- function(fullPath)
{
  consumerKey <- readRDS(paste0(fullPath, 'consumerKey.rds'))
  refreshToken <- readRDS(paste0(fullPath, 'refreshToken.rds'))
  accessToken <- rameritrade::td_auth_accessToken(consumerKey = consumerKey,
                                                  refreshToken = refreshToken)
}