inst/ggraptR/debug/debug.R

In cargomoose/ggraptR1: Allows Interactive Visualization of Data Through a Web Browser GUI

#### debugger configuration

# prepare txtCfg to read configuration file
tryCatch({
  state$txtCfg <- read.delim("./debug/debug.cfg.json", comment.char="#", quote="", header=F)
  state$txtCfg <- as.character(state$txtCfg$V1) 
  }, error = function(e) {})

# if txtCfg populated then logging is on, read extracted json record
if (nchar(state$txtCfg) > 0) {
  # read json configuration string
  jsonCfg <- fromJSON(state$txtCfg)
  
  if (jsonCfg$logs == "all") {
    flog.appender(appender.file('./debug/debug.log'), name='all')
    flog.threshold(DEBUG, name='all')  
  }
  
  if (jsonCfg$format == "simple") {
    flog.layout(layout.simple, name='all')
  }
  
  if (jsonCfg$format == "json") {
    flog.layout(layout.json, name='all')
  }
} else {
  # logging is off, only logs of level FATAL will be written. no such logs exist in the code,
  # so none will be written
  flog.threshold(FATAL)  
}

flog.debug("Debug logging initiated", name='all')