minor improvements in listing installed java in project dir

R/java_manage_project.R

@@ -20,23 +20,25 @@ java_list_in_project <- function(
   java_symlink_dir <- file.path(project_path, "rjavaenv")
 
   if (!dir.exists(java_symlink_dir)) {
-    cli::cli_alert_danger("Project Java symlink directory does not exist")
-    return(character(0))
+    cli::cli_alert_danger("No Java has been installed in the project.")
+    return(invisible(NULL))
   }
 
-  if (verbose) cli::cli_inform("Contents of the Java symlinks in the project folder:")
-
+
   # List directories up to the specified depth
   java_paths <- list.dirs(java_symlink_dir, recursive = TRUE, full.names = TRUE)
-
+  
   java_paths <- java_paths[vapply(java_paths, function(x) {
     length(strsplit(x, .Platform$file.sep)[[1]]) == length(strsplit(java_symlink_dir, .Platform$file.sep)[[1]]) + 3
   }, logical(1))]
-
+  
   if (length(java_paths) == 0) {
-    return(character(0))
+    cli::cli_alert_danger("No Java has been installed in the project.")
+    return(invisible(NULL))
   }
-
+
+  if (verbose) cli::cli_inform("Contents of the Java symlinks in the project folder:")
+
   if (output == "vector") {
     return(unname(java_paths))
   } else if (output == "data.frame") {