From a3ae93b587c1c11066811b65d0d4e0b6c7a25823 Mon Sep 17 00:00:00 2001
From: Kevin Ushey <kevinushey@gmail.com>
Date: Thu, 19 Dec 2024 16:11:07 -0800
Subject: [PATCH] try once more

---
 R/files.R | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

diff --git a/R/files.R b/R/files.R
index 98389361d..7141eb12b 100644
--- a/R/files.R
+++ b/R/files.R
@@ -579,21 +579,7 @@ renv_file_broken_unix <- function(paths) {
 # unfortunately, as far as I know, there isn't a more reliable
 # way of detecting broken junction points on Windows using vanilla R
 renv_file_broken_win32 <- function(paths) {
-
-  owd <- getwd()
-  on.exit(setwd(owd), add = TRUE)
-
-  broken <- rep.int(FALSE, length(paths))
-  for (i in seq_along(paths)) {
-    if (dir.exists(paths[[i]])) {
-      broken[[i]] <- tryCatch(
-        !nzchar(setwd(paths[[i]])),
-        error = function(cnd) TRUE
-      )
-    }
-  }
-  broken
-
+  !map_lgl(paths, Sys.setFileTime, Sys.time())
 }
 
 renv_file_size <- function(path) {