R/clean.call.R

Defines functions clean.call

clean.call = function(x) {
  z <- strsplit(paste(x, collapse="\t"), "\t")[[1]]
  switch(z[1],
         "lapply" = z[3],
         "sapply" = z[3],
         "do.call" = z[2],
         "function" = "FUN",
         "source" = "###",
         "eval.with.vis" = "###",
         z[1]
  )
}
haghish/md.log documentation built on Aug. 30, 2022, 6:47 p.m.