R/errorrcode.R

In akhikolla/testUBSAN: What the Package Does in One 'Title Case' Line

##' @title user_error_display
##'
##' @return count.dt list with error messgae,inputs which caused the error,
##'   corresponding line and datavariable name
##' 
##' @author Akhila Chowdary Kolla
##' 
##' @param logfile path to the logfile
##' @import data.table
##' @export


user_error_display<-function(logfile){
  error.dt <- nc::capture_all_str(
    logfile,
    arg.name=".*?",
    " values: ",
    value=".*",
    "\n",
    errortrace="(?:.*\n)*?", 
    "==[0-9]+== HEAP SUMMARY:",
    "\n",
    heapsum="(?:.*\n)*?",
    "==[0-9]+== LEAK SUMMARY:",
    "\n",
    leaksum="(?:.*\n)*?",
    "==[0-9]+== ERROR SUMMARY:")
  
  files.list<-nc::capture_all_str(logfile,"Command: ./",
                                  file.name=".*",
                                  "_DeepState_TestHarness --fuzz")
  error.dt[, error.i := 1:.N]
  error.dt[, src.file.lines := {
    file.line.dt <- nc::capture_all_str(
      error.dt$errortrace,
      file.line="[^()]+?:[0-9]+")
    file.line.dt[grepl(paste0(files.list$file.name,".cpp"), file.line),paste(file.line, collapse="\n")]
  }, by=error.i]
  trace <- gsub("==[0-9]+== Warning:.*?\\n","",error.dt$errortrace)
  error.msg <- nc::capture_first_vec(trace,
                                     msg=".*")
  #error.msg <- nc::capture_first_vec(error.dt$errortrace,"\n",
  #                                  err.msg=".*")
  count.dt <- error.dt[, .(
    count=.N
  ), by=.(arg.name,value,src.file.lines,error.message=gsub("==[0-9]+==","",error.msg$msg))]
  
  return(count.dt)
}

globalVariables(c("error.i","src.file.lines","heapsum","file.line","arg.name","value",".N",":=","prototype"))