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

Revert "fixing ini postnames"

Browse Source 
This reverts commit a94afb0a09.
This commit is contained in:
Hollos Roland 2021-12-20 15:53:41 +01:00
parent a94afb0a09
commit 74e00aa402
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
RBBGCMuso/R/multiSite.R
View File

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