Try to normalize getwd() as well.

R/multi_irace.R

@@ -70,7 +70,7 @@ multi_irace <- function(scenarios, parameters, n = 1L, parallel = 1, split_outpu
     scenarios[[i]]$execDir <- execDir
     fs::dir_create(execDir)
 
-    if (logFile_old != '') {
+    if (nzchar(logFile_old)) {
       logFile <- if (is.sub.path(logFile_old, execDir_old)) {
         # 'logFile' is located in the old 'execDir', so move it into the new 'execDir'.
         # 'path/to/execDir/logFile.rdata' -> 'path/to/execDir/run_{i}/logFile.rdata'.

R/path_rel2abs.R

@@ -15,14 +15,12 @@
 #' @export
 path_rel2abs <- function (path, cwd = getwd())
 {
-  # There is no need to normalize cwd if it was returned by getwd()
-  if (!missing(cwd))
-    cwd <- fs::path_expand(cwd)
+  cwd <- fs::path_norm(fs::path_expand(cwd))
 
   if (fs::is_absolute_path(path)) {
     # Possibly expand ~/path to /home/user/path.
     path <- fs::path_expand(path)
-  } else {
+  } else if (!startsWith(path, ".")) {
     # it may be a command in the path.
     sys_path <- suppressWarnings(Sys.which(path))
     if (nzchar(sys_path)