Fix the problem where checking qsub status.

yinghaoSunn · Oct 2, 2024 · fc7fd71 · fc7fd71
1 parent 08998d2
commit fc7fd71
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/base/remote/R/check_qsub_status.R b/base/remote/R/check_qsub_status.R
@@ -24,7 +24,7 @@ qsub_run_finished <- function(run, host, qstat) {
     out <- remote.execute.cmd(host = host, cmd = check, stderr = TRUE)
   }
 
-  if (length(out) > 0 && substring(out, nchar(out) - 3) == "DONE") {
+  if (length(out) > 0 && all(substring(out, nchar(out) - 3) == "DONE")) {
     PEcAn.logger::logger.debug("Job", run, "for run", run_id_string, "finished")
     return(TRUE)
   } else {