Update R/internal_utilities.R

e-kotov · Copilot · web-flow · commit 40ef7d90fdc3 · 2026-01-11T17:50:51.000+01:00
Co-authored-by: Copilot &lt;175728472+Copilot@users.noreply.github.com&gt;
diff --git a/R/internal_utilities.R b/R/internal_utilities.R
@@ -395,7 +395,7 @@ java_check_current_rjava_version <- function() {
   # Ignore hidden files like .DS_Store or AppleDouble files (._)
   all_files <- list.files(temp_dir, full.names = TRUE)
   extracted_dirs <- all_files[
-    dir.exists(all_files) & !grepl("^\\._|/\\._", basename(all_files))
+    dir.exists(all_files) & !grepl("^\\._", basename(all_files))
   ]
 
   if (length(extracted_dirs) == 0) {

Original file line number	Diff line number	Diff line change
`@@ -395,7 +395,7 @@ java_check_current_rjava_version <- function() {`
`395`	`395`	`# Ignore hidden files like .DS_Store or AppleDouble files (._)`
`396`	`396`	`all_files <- list.files(temp_dir, full.names = TRUE)`
`397`	`397`	`extracted_dirs <- all_files[`
`398`		`- dir.exists(all_files) & !grepl("^\\._\|/\\._", basename(all_files))`
	`398`	`+ dir.exists(all_files) & !grepl("^\\._", basename(all_files))`
`399`	`399`	`]`
`400`	`400`
`401`	`401`	`if (length(extracted_dirs) == 0) {`