R/log.R

In edwindj/datalog: Data logging

require(futile.logger)

datalog.info <- function(msg, ..., name=flog.namespace(), prepend="data"){
  if (!missing(msg)){
    # write the msg with the "normal" loggers"
    eval(flog.info(msg=msg, name=name), envir=parent.frame())
  }
  
  # create the namespace for data stuff
  data_namespace <- paste("data", name, sep=".")
  eval(flog.info(msg, ..., name=data_namespace), envir=parent.frame())
}

.datalog <- new.env()

get_logdir <- function(){
  if (is.null(.datalog$logdir)){
    .datalog$logdir = file.path(tempdir(), "datalog/")
    flog.info("Creating %s", .datalog$logdir)
    dir.create(.datalog$logdir, recursive=T)  
  }  
  .datalog$logdir
}

# testing 1,2,3
#datalog.info("testing", a=2)