From 74e00aa402ba71b9da3f9ace72571945e8a69975 Mon Sep 17 00:00:00 2001 From: Hollos Roland Date: Mon, 20 Dec 2021 15:53:41 +0100 Subject: [PATCH] Revert "fixing ini postnames" This reverts commit a94afb0a09d42141f863ceaa199bdfbe54106a12. --- RBBGCMuso/R/multiSite.R | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/RBBGCMuso/R/multiSite.R b/RBBGCMuso/R/multiSite.R index 9a9a3d6..5be9ffc 100644 --- a/RBBGCMuso/R/multiSite.R +++ b/RBBGCMuso/R/multiSite.R @@ -83,11 +83,11 @@ copyToThreadDirs2 <- function(iniSource, thread_prefix = "thread", numCores, exe file.path(execPath,"muso.exe"))){ sapply(iniSource, function(x){ flatMuso(x, execPath, - directory=file.path("tmp", (thread_prefix),tools::file_path_sans_ext(basename(x)),""), d =TRUE) + directory=file.path("tmp", paste0(thread_prefix,"_1"),tools::file_path_sans_ext(basename(x)),""), d =TRUE) file.copy(executable, - file.path("tmp", (thread_prefix),tools::file_path_sans_ext(basename(x)))) + file.path("tmp", paste0(thread_prefix,"_1"),tools::file_path_sans_ext(basename(x)))) tryCatch(file.copy(file.path(execPath,"cygwin1.dll"), - file.path("tmp", (thread_prefix),tools::file_path_sans_ext(basename(x)))), + file.path("tmp", paste0(thread_prefix,"_1"),tools::file_path_sans_ext(basename(x)))), error = function(e){"If you are in Windows..."}) }) sapply(2:numCores,function(thread){ @@ -176,6 +176,7 @@ multiSiteCalib <- function(measurements, } , error = function(e){ + # browser() sink("error.txt") print(e) sink()