For mllg#267. Add backup option for checking file access, using the m…

…ethod from 'R.utils::fileAccess()`
bschneidr · Sep 4, 2024 · a2a9077 · a2a9077
1 parent 63e001f
commit a2a9077
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/R/checkAccess.R b/R/checkAccess.R
@@ -27,6 +27,16 @@ checkAccess = function(x, access = "") {
 
     if ("r" %in% access || is.root) {
       w = wf(file.access(x, 4L) != 0L)
+
+      if (length(w) > 0L) {
+        w = wf(
+          sapply(X = x, FUN = function(x_i) {
+            tryCatch({readBin(x_i, what = raw(), n = 1L); return(FALSE)},
+                     error = function(e) return(TRUE))
+          })
+        )
+      }
+
       if (length(w) > 0L)
         return(sprintf("'%s' not readable", x[w]))
     }