From 64355412ad0a89180acdca4310a5395d3f9859a4 Mon Sep 17 00:00:00 2001 From: Hollos Roland Date: Wed, 21 Apr 2021 08:11:59 +0200 Subject: [PATCH] fixing skipable thread copying --- RBBGCMuso/R/multiSite.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/RBBGCMuso/R/multiSite.R b/RBBGCMuso/R/multiSite.R index a58a913..43bc08b 100644 --- a/RBBGCMuso/R/multiSite.R +++ b/RBBGCMuso/R/multiSite.R @@ -46,7 +46,6 @@ multiSiteCalib <- function(measurements, future::plan(future::multisession) # file.remove(list.files(path = "tmp", pattern="progress.txt", recursive = TRUE, full.names=TRUE)) # file.remove(list.files(path = "tmp", pattern="preservedCalib.csv", recursive = TRUE, full.names=TRUE)) - unlink("tmp",recursive=TRUE) # ____ _ _ _ _ # / ___|_ __ ___ __ _| |_ ___ | |_| |__ _ __ ___ __ _ __| |___ @@ -54,7 +53,11 @@ multiSiteCalib <- function(measurements, # | |___| | | __/ (_| | || __/ | |_| | | | | | __/ (_| | (_| \__ \ # \____|_| \___|\__,_|\__\___| \__|_| |_|_| \___|\__,_|\__,_|___/ if(copyThread){ + unlink("tmp",recursive=TRUE) copyToThreadDirs2(iniSource=calTable$site_id, numCores=numCores, execPath=execPath) + } else { + print("copy skipped") + file.remove(file.path(list.dirs("tmp",recursive=FALSE),"progress.txt")) } # ____ _ _ _