wip

R/server.R

@@ -427,7 +427,7 @@ startApp <- function(appObj, port, host, quiet) {
 # Run an application that was created by \code{\link{startApp}}. This
 # function should normally be called in a \code{while(TRUE)} loop.
 serviceApp <- function() {
-  later::run_now()
+  ..stacktraceon..(later::run_now())
 
   flushReact()
   flushPendingSessions()