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")