fs::is_dir() is broken.

MLopez-Ibanez · Jan 8, 2024 · f3041b1 · f3041b1
1 parent 5e30228
commit f3041b1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/path_rel2abs.R b/R/path_rel2abs.R
@@ -30,7 +30,8 @@ path_rel2abs <- function (path, cwd = getwd())
     sys_path <- suppressWarnings(Sys.which(path))
     if (nzchar(sys_path)
       && fs::file_access(sys_path, "execute")
-      && !fs::is_dir(sys_path)) {
+      # fs::is_dir() is broken: https://github.com/r-lib/fs/issues/440
+      && !file.info(sys_path)$isdir) {
       path <- as.vector(sys_path)
     }
   }