make finalizer/cleanup return TRUE on kill

Author: mschubert

R/qsys_lsf.r

@@ -44,8 +44,8 @@ LSF = R6::R6Class("LSF",
             if (!private$is_cleaned_up) {
                 system(paste("bkill -J", private$job_id),
                        ignore.stdout=quiet, ignore.stderr=quiet, wait=FALSE)
-                private$is_cleaned_up = TRUE
             }
+            private$is_cleaned_up = TRUE
         }
     )
 )

R/qsys_multicore.r

@@ -64,8 +64,8 @@ MULTICORE = R6::R6Class("MULTICORE",
                     tools::pskill(running, tools::SIGKILL)
                 }
                 private$children = list()
-                private$is_cleaned_up = TRUE
             }
+            private$is_cleaned_up = TRUE
         }
     )
 )

R/qsys_multiprocess.r

@@ -57,8 +57,8 @@ MULTIPROCESS = R6::R6Class("MULTIPROCESS",
                             paste(names(private$callr), collapse=", "), immediate.=TRUE)
                 for (cr in private$callr)
                     cr$kill_tree()
-                private$is_cleaned_up = TRUE
             }
+            private$is_cleaned_up = TRUE
         }
     )
 )

R/qsys_sge.r

@@ -48,8 +48,8 @@ SGE = R6::R6Class("SGE",
             if (!private$is_cleaned_up) {
                 system(paste("qdel", private$job_id),
                        ignore.stdout=quiet, ignore.stderr=quiet, wait=FALSE)
-                private$is_cleaned_up = TRUE
             }
+            private$is_cleaned_up = TRUE
         }
     )
 )

R/qsys_slurm.r

@@ -43,8 +43,8 @@ SLURM = R6::R6Class("SLURM",
             if (!private$is_cleaned_up) {
                 system(paste("scancel --name", private$job_id),
                        ignore.stdout=quiet, ignore.stderr=quiet, wait=FALSE)
-                private$is_cleaned_up = TRUE
             }
+            private$is_cleaned_up = TRUE
         }
     )
 )

R/qsys_ssh.r

@@ -65,8 +65,8 @@ SSH = R6::R6Class("SSH",
 #                    list(id="PROXY_STOP", finalize=!private$is_cleaned_up),
 #                    "proxy"
 #                )
-                private$ssh_proxy_running = FALSE
 #            }
+            private$ssh_proxy_running = FALSE
         }
     )
 )