fix java_check if runtime missing

ropensci · Oct 11, 2023 · 50717b9 · 50717b9
1 parent 4a7363e
commit 50717b9
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/selenium.R b/R/selenium.R
@@ -142,6 +142,10 @@ java_check <- function() {
   if (identical(unname(javapath), "")) {
     stop("PATH to JAVA not found. Please check JAVA is installed.")
   }
+  java_version <- suppressWarnings(system2(Sys.which("java"), "-version", stdout = TRUE, stderr = TRUE))
+  if (!is.null(attr(java_version, "status"))) {
+    stop(paste(java_version, collapse = "\n"))
+  }
   javapath
 }