R/zzz.R

In bnaras/SBCpip: Stanford Blood Center Platelet Inventory Prediction

.onLoad <- function(libname, pkgname) {
    today <- as.character(Sys.Date(), format = "%Y-%m-%d-%H:%M")
    ## invisible(
    ##     loggit::setLogFile(
    ##                 file.path(getwd(),
    ##                           sprintf("%s_%s.json", libname, today))
    ##               , confirm = FALSE
    ##             )
    ## )
    invisible(
        loggit::setLogFile(
                    file.path(getwd(),
                              sprintf(get_SBC_config()$log_filename_prefix, today))
                  , confirm = FALSE
                )
    )
}