From 9d81f5e37d3aed4383b23b3e5c67cf497a39a860 Mon Sep 17 00:00:00 2001
From: Craig Williams <craig@avsdev.uk>
Date: Mon, 26 Jan 2026 11:14:12 +0000
Subject: [PATCH] devtools check() completed

---
 DESCRIPTION                       |  6 +++++-
 NAMESPACE                         |  1 +
 R/PrettyShinyDisconnectHandler.R  |  2 ++
 man/useBannerDisconnectHandler.Rd | 20 ++++++++++++++++++++
 4 files changed, 28 insertions(+), 1 deletion(-)
 create mode 100644 man/useBannerDisconnectHandler.Rd

diff --git a/DESCRIPTION b/DESCRIPTION
index aca96d5..b82f12d 100644
--- a/DESCRIPTION
+++ b/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
diff --git a/NAMESPACE b/NAMESPACE
index 6ae9268..4797601 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,2 +1,3 @@
 # Generated by roxygen2: do not edit by hand
 
+export(useBannerDisconnectHandler)
diff --git a/R/PrettyShinyDisconnectHandler.R b/R/PrettyShinyDisconnectHandler.R
index dca0a78..1d96277 100644
--- a/R/PrettyShinyDisconnectHandler.R
+++ b/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"
diff --git a/man/useBannerDisconnectHandler.Rd b/man/useBannerDisconnectHandler.Rd
new file mode 100644
index 0000000..ec680a0
--- /dev/null
+++ b/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") })
+}
+}