if (FALSE) {
wrkFld <- "~/HSB/SENIOR"
dataPath <- file.path(wrkFld, "REVISED_ASCII", "HSR8086_REV.PRI")
sasPath <- file.path(wrkFld, "SAS_EXTRACT_LOGIC", "HSBsr_READ_HSR8086.SAS")
# with verbose output as default
hsbSR <- readHSB_Senior(dataPath, sasPath)
# silent output
hsbSR <- readHSB_Senior(dataPath, sasPath, verbose = FALSE)
# force cache update
hsbSR <- readHSB_Senior(dataPath, sasPath, forceReread = TRUE)
}
Run the code above in your browser using DataLab