pskill only if unclean shutdown

mschubert · Apr 22, 2018 · 3eb35d5 · 3eb35d5
1 parent e9d694e
commit 3eb35d5
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/qsys_multicore.r b/R/qsys_multicore.r
@@ -20,10 +20,12 @@ MULTICORE = R6::R6Class("MULTICORE",
 
         cleanup = function() {
             success = super$cleanup()
-            self$finalize(success)
+            if (success)
+                private$pids = NULL
+            self$finalize()
         },
 
-        finalize = function(clean=FALSE) {
+        finalize = function() {
             if (length(private$pids) > 0) {
                 tools::pskill(private$pids, tools::SIGKILL)
                 private$pids = NULL