R/zzz.R

In monkeypicked/aa030pa: panel operations

.onLoad <- function(libname, pkgname) {
#     bui.local <- buiindir(paste0(root.global, "BDH/RAW/BEST_TARGET_PRICE/TFU"))
#     da.local <<- commonda(patt = "CUR_MKT_CAP_TFU.RData")
#     dd <- data.frame(derca())[, "date"]
#     daw.local <<- as.Date(intersect(da.local, dd), origin = as.Date("1970-01-01"))
#     supad.g <<- cart(bui = data.table(bui = bui.local), da = data.table(date = da.local))
#     supaw.g <<- cart(bui = data.table(bui = bui.local), da = data.table(date = daw.local))

#this commented out 2015-10-23 to enable remote deployment
#    dersupa()
    aapaenv <<- environment(x0100BTP_TFU)  #this is the package environment - could be done better?
    aapafun <<- ls(aapaenv)
}