Log error when session finished unexpectedly

randy3k · Copilot · web-flow · commit ee80c62e24f7 · 2026-03-06T15:07:37.000-08:00
Co-authored-by: Copilot &lt;175728472+Copilot@users.noreply.github.com&gt;
diff --git a/R/task.R b/R/task.R
@@ -49,7 +49,15 @@ Task <- R6::R6Class("Task",
                         return(TRUE)
                     }
                 }
-                return(private$session$get_state() == "finished")
+                state <- private$session$get_state()
+                if (identical(state, "finished")) {
+                    if (!is.null(private$error)) {
+                        err <- simpleError("Session finished unexpectedly while task was running")
+                        private$error(err)
+                    }
+                    return(TRUE)
+                }
+                return(FALSE)
             }
 
             if (is.null(private$process)) {

Original file line number	Diff line number	Diff line change
`@@ -49,7 +49,15 @@ Task <- R6::R6Class("Task",`
`49`	`49`	`return(TRUE)`
`50`	`50`	`}`
`51`	`51`	`}`
`52`		`- return(private$session$get_state() == "finished")`
	`52`	`+ state <- private$session$get_state()`
	`53`	`+ if (identical(state, "finished")) {`
	`54`	`+ if (!is.null(private$error)) {`
	`55`	`+ err <- simpleError("Session finished unexpectedly while task was running")`
	`56`	`+ private$error(err)`
	`57`	`+ }`
	`58`	`+ return(TRUE)`
	`59`	`+ }`
	`60`	`+ return(FALSE)`
`53`	`61`	`}`
`54`	`62`
`55`	`63`	`if (is.null(private$process)) {`