From 30c788a43c328f3c0e550602178cba2504be008f Mon Sep 17 00:00:00 2001 From: Hollos Roland Date: Fri, 19 Mar 2021 15:23:12 +0100 Subject: [PATCH] cygwin copy problem --- RBBGCMuso/R/multiSite.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/RBBGCMuso/R/multiSite.R b/RBBGCMuso/R/multiSite.R index 216f3f0..13b621b 100644 --- a/RBBGCMuso/R/multiSite.R +++ b/RBBGCMuso/R/multiSite.R @@ -10,9 +10,9 @@ copyToThreadDirs2 <- function(iniSource, thread_prefix = "thread", numCores, exe file.copy(executable, 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", paste0(thread_prefix,"_1"))), error = function(e){"If you are in Windows..."}) + 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){ dir.create(sprintf("tmp/%s_%s",thread_prefix,thread), showWarnings=FALSE) file.copy(list.files(sprintf("tmp/%s_1",thread_prefix),full.names = TRUE),sprintf("tmp/%s_%s/",thread_prefix,thread),