hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cygwin copy problem

Browse Source
This commit is contained in:
Hollos Roland 2021-03-19 15:23:12 +01:00
parent cdea7f5338
commit 30c788a43c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
RBBGCMuso/R/multiSite.R
View File

@ -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),