flushReact should be called after app loads?

[jcheng5]

library(shiny)

observe({
    stopApp()
})

ui <- fluidPage()

server <- function(input, output, session) {
}

shinyApp(ui, server)

I'd expect this Shiny app to either exit immediately, or less likely, not at all (because stopApp() somehow gets called before the app starts). What I wouldn't expect is what actually happens: the app exits when the first user connects.

[jcheng5]

Call scheduleFlush() right before entering the while-loop