Fix error message.

MLopez-Ibanez · Jan 6, 2024 · 2940788 · 2940788
1 parent 005e1d8
commit 2940788
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/R/multi_irace.R b/R/multi_irace.R
@@ -82,7 +82,8 @@ multi_irace <- function(scenarios, parameters, n = 1L, parallel = 1, split_outpu
         # pathExt <- tools::file_ext(logFile_old)
         # pathWithoutExtWithIndex <- sprintf("%s_%02d", pathWithoutExt, i)
         # paste(pathWithoutExtWithIndex, pathExt, sep = ".")
-        irace.error("Invalid 'logFile' path (", logFile_old, ", ",fs::path_norm(logFile_old) , ",", fs::path_tidy(logFile_old),"): ", "The 'logFile' must be located inside the 'execDir' (", execDir_old, ", ", fs::path_norm(execDir_old) , ",", fs::path_tidy(execDir_old), ").")
+        irace.error("Invalid 'logFile' path (", logFile_old, "): ",
+          "The 'logFile' must be located inside the 'execDir' (", execDir_old, ").")
       }
       scenarios[[i]]$logFile <- logFile
     }

diff --git a/R/path_rel2abs.R b/R/path_rel2abs.R
@@ -15,6 +15,7 @@
 #' @export
 path_rel2abs <- function (path, cwd = getwd())
 {
+  # We need to do this even with the path returned by `getwd()`.
   cwd <- fs::path_norm(fs::path_expand(cwd))
 
   if (fs::is_absolute_path(path)) {