R/zzz.R

In ksavin/intrinio: API wrapper for intrinio.com financial data feeds.

.onLoad <- function(libname, pkgname){
  assign('intrinio_globals', new.env(), envir = parent.env(environment()))
  assign('base_url', 'https://api.intrinio.com/', envir = intrinio_globals)
  assign('options', list(
    verbose = TRUE,
    costWarning = FALSE,
    warnThreshold = 50,
    maxPageSize = maxPages,
    outFormat = 'data.frame'
  ), envir = intrinio_globals)
}

.onUnload <- function(libpath){
  suppressWarnings(rm(list = ls(envir = intrinio_globals), envir = intrinio_globals))
}