diff --git a/R/DoAbsolute.R b/R/DoAbsolute.R index 309252e..c04c94e 100644 --- a/R/DoAbsolute.R +++ b/R/DoAbsolute.R @@ -57,6 +57,11 @@ DoAbsolute <- function(Seg, Maf = NULL, dir.create(results.dir, recursive = TRUE, showWarnings = TRUE) } + if (file.exists(file.path(results.dir, "error.log"))) { + unlink(file.path(results.dir, "error.log")) + cat("-> Removed previous error log file.\n") + } + if (!suppressMessages(requireNamespace("ABSOLUTE"))) { stop("Find no package called 'ABSOLUTE', please install it...") } @@ -473,6 +478,10 @@ DoAbsolute <- function(Seg, Maf = NULL, unlink(temp.dir, recursive = TRUE, force = TRUE) } + if (file.exists(file.path(results.dir, "error.log"))) { + cat("-> Error log info detected, see error.log under result directory for details.\n") + } + cat("-> Done.\n") }