devtools check() completed

DESCRIPTION

@@ -4,8 +4,12 @@ Version: 0.0.0.9000
 Authors@R: 
     person("Craig", "Williams", , "craig@avsdev.uk", role = c("aut", "cre"))
 Description: Replaces the standard shiny disconnect handler with a nice banner
-    and faded screen
+    and faded screen.
 License: GPL (>= 3)
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.3
+Imports: 
+    htmltools
+Suggests: 
+    shiny

NAMESPACE

@@ -1,2 +1,3 @@
 # Generated by roxygen2: do not edit by hand
 
+export(useBannerDisconnectHandler)

R/PrettyShinyDisconnectHandler.R

@@ -5,8 +5,10 @@
 #' @export
 #'
 #' @examples
+#' \dontrun{
 #' x <- shiny::fluidPage(useBannerDisconnectHandler())
 #' shiny::shinyApp(x, function(...) { stop("Server stop") })
+#' }
 useBannerDisconnectHandler <- function() {
   if (getOption("shiny.minified", TRUE)) {
     js <- "bannerDisconnectHandler.min.js"

man/useBannerDisconnectHandler.Rd

@@ -0,0 +1,20 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PrettyShinyDisconnectHandler.R
+\name{useBannerDisconnectHandler}
+\alias{useBannerDisconnectHandler}
+\title{Replaces the standard shiny disconnect handler with a banner}
+\usage{
+useBannerDisconnectHandler()
+}
+\value{
+The disconnect handler
+}
+\description{
+Replaces the standard shiny disconnect handler with a banner
+}
+\examples{
+\dontrun{
+x <- shiny::fluidPage(useBannerDisconnectHandler())
+shiny::shinyApp(x, function(...) { stop("Server stop") })
+}
+}