From 2b49298e967279388fcef3d4fa81db9282a25886 Mon Sep 17 00:00:00 2001 From: Shixiang Wang Date: Sat, 27 Jun 2020 17:34:04 +0800 Subject: [PATCH] =?UTF-8?q?=E6=B7=BB=E5=8A=A0=E6=9B=B4=E5=A4=9A=E6=A3=80?= =?UTF-8?q?=E6=9F=A5=E5=92=8C=E6=8F=90=E7=A4=BA=20#10?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- R/DoAbsolute.R | 9 +++++++++ 1 file changed, 9 insertions(+) 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") }