Improve error message

R/multi_irace.R

@@ -68,7 +68,7 @@ multi_irace <- function(scenarios, parameters, n = 1L, parallel = 1, split_outpu
     # 'path/to/execDir' -> 'path/to/execDir/run_{i}'.
     execDir <- file.path(execDir_old, sprintf("run_%02d", i))
     scenarios[[i]]$execDir <- execDir
-    if (!dir.exists(execDir)) dir.create(execDir, recursive = TRUE)
+    fs::dir_create(execDir)
 
     if (logFile_old != '') {
       logFile <- if (is.sub.path(logFile_old, execDir_old)) {
@@ -82,7 +82,7 @@ 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: ", "The 'logFile' must be located inside the 'execDir'.")
+        irace.error("Invalid 'logFile' path (", logFile_old, "): ", "The 'logFile' must be located inside the 'execDir' (", execDir_old, ").")
       }
       scenarios[[i]]$logFile <- logFile
     }

R/path_rel2abs.R

@@ -1,9 +1,9 @@
 #' Converts a relative path to an absolute path.
 #'
-#' It tries really hard to create canonical paths. If the path passed
-#' corresponds to an executable, it tries to find its path using `Sys.which()`.
-#' Expansion of `'~'` in Windows follows the definition of `fs::path_expand()`
-#' rather than `base::path.expand()`.
+#' If the path passed corresponds to an executable, it tries to find its path
+#' using [Sys.which()].  Expansion of `'~'` in Windows follows the definition
+#' of [fs::path_expand()] rather than [base::path.expand()]. This function
+#' tries really hard to create canonical paths.
 #' 
 #' @param path (`character(1)`) Character string representing a relative path.
 #' @param cwd (`character(1)`) Current working directory.
@@ -31,5 +31,5 @@ path_rel2abs <- function (path, cwd = getwd())
       path <- as.vector(sys_path)
     }
   }
-  fs::path_abs(path, start = cwd)
+  as.character(fs::path_abs(path, start = cwd))
 }