R/zzz.R

In canarionyc/loanroll: Routines for Parsing and Doing Analysis on Loan Data Files from Fannie Mae

.onAttach <- function(libname, pkgname) {

  msgs <- c( # sprintf("Running .onAttach(%s)", pkgname),
    "Using environment variables:",
    sprintf("FNMA_DATADIR=%s", Sys.getenv("FNMA_DATADIR", unset = NA)),
    sprintf("FNMA_WORKDIR=%s", Sys.getenv("FNMA_WORKDIR", unset = NA)),
    sprintf("FNMA_LLP_REL=%s", Sys.getenv("FNMA_LLP_REL", unset = NA)),
    sprintf("TMPDIR=%s", Sys.getenv("TMPDIR", unset = NA))
    )
  if(dir.exists(fn_datadir)) {
    msgs <- append(msgs,
                   c( sprintf("fn_datadir=%s",fn_datadir),
                      sprintf("fn_sf_datadir=%s",fn_sf_datadir),
                      sprintf("fn_llp_datadir=%s",fn_llp_datadir)
                   )
    )
  } else {
    msgs <- append(msgs, sprintf("Data directory tree root [%s] needs to be created. Setup FNMA_DATADIR environment variable with path to base raw files directory.", fn_datadir))
  }

  if(dir.exists(fn_workdir)) {
    msgs <- append(msgs,
                   c(sprintf("fn_workdir=%s",fn_workdir),
                     sprintf("fn_sf_workdir=%s",fn_sf_workdir),
                     sprintf("fn_llp_workdir=%s",fn_llp_workdir)
                   )
    )
  }

  packageStartupMessage(
    paste(
      msgs,
      collapse  = "\n")
  )


}