Set default reactive domain when executing flushedCallbacks. Fixes #1975

This commit is contained in:
Winston Chang
2018-04-21 11:46:46 -05:00
parent 3a5d48ae7c
commit 5a5294cc44

View File

@@ -1173,8 +1173,10 @@ ShinySession <- R6Class(
# Schedule execution of onFlushed callbacks
on.exit({
# ..stacktraceon matches with the top-level ..stacktraceoff..
private$flushedCallbacks$invoke(..stacktraceon = TRUE)
withReactiveDomain(self, {
# ..stacktraceon matches with the top-level ..stacktraceoff..
private$flushedCallbacks$invoke(..stacktraceon = TRUE)
})
}, add = TRUE)
if (!hasPendingUpdates()) {