You're calling stopApp(), which stops the entire Shiny app for all users--that's what it's designed to do. You should
never call stopApp in a Shiny Server scenario (at least, I can't think of when it could possibly be useful)--it's intended to be used for Shiny apps that are used directly from an R console, by an R user who can make use of the return value from runApp.
Shiny Server automatically stops Shiny apps a few seconds after the last user leaves, and will automatically start it the next time someone tries to connect. So your shinyServer function for this example should have a totally empty function body.