R/load_oanda.R

In samkulu/forex: Foreign Exchange (FOREX)

#' Load OANDA Data
#'
#' @param fxPairs
#' @param path
#'
#' @return
#' @export
#'
#' @examples
#' fxPairs <- c("USDCHF","EURCHF", "GBPCHF", "CADCHF")
#' load_oanda(fxPairs)
load_oanda <- function(fxPairs, path = "../forex_oanda"){
  # Load Cache
  if(exists("dataOANDA")){
    if (all(fxPairs %in% names(dataOANDA)[-1]))  return(dataOANDA)
  }

  # Read each forex pair
  listFX <- get_oanda(fxPairs)

  # Load into global Environment
  dataOANDA <<- get_table(listFX)
}