Customise 'Shiny' disconnected screens as well as sanitize error messages to make them clearer and friendlier to the user.
Good-looking problems: customise your Shiny disconnected screen and error messages.
Include dependencies with useSever then use the sever function to customise the screen, launch the app and stop the server to see the customised screen.
library(shiny)
library(sever)
ui <- fluidPage(
useSever(), # import dependencies
h1("sever")
)
server <- function(input, output){
sever() # customise
}
shinyApp(ui, server)

Get it from CRAN with:
install.packages("sever")
Install it from Github with:
# install.packages("remotes")
remotes::install_github("JohnCoene/sever")