.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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.