sever (version 0.0.7)

rupture: Rupture

Description

Displays a disconnected screen after ms milliseconds of inactivity.

Usage

rupture(
  html = rupture_default(),
  color = "#fff",
  opacity = 1,
  bg_color = "#333e48",
  bg_image = NULL,
  ms = 1000 * 60 * 15,
  session = shiny::getDefaultReactiveDomain(),
  box = FALSE
)

Arguments

html

Shiny tags to use as content for the disconnected screen, generally shiny::tagList().

opacity

Opacity of background.

bg_color, color

Background color, color of text.

bg_image

Background image to use.

ms

Milliseconds before showing the disconnected screen, defaults to 1000 * 60 * 15 which is 15 minutes (same as shinyapps.io).

session

A valid shiny session.

box

Set to TRUE to enclose the html in a box.

Value

None

Examples

# NOT RUN {
library(shiny)

ui <- fluidPage(
 useSever(),
 h1("rupture")
)

server <- function(input, output){
 rupture(
   tagList(
     h1("Whoops"),
     reconnect_button()
   )
 )
}

if(interactive())
 shinyApp(ui, server)

# }