example with the closing of the browser

insightsengineering · Oct 24, 2023 · 4eb1a39 · 4eb1a39
1 parent 8f111e8
commit 4eb1a39
Show file tree

Hide file tree

Showing 2 changed files with 46 additions and 0 deletions.
diff --git a/R/tm_landing_popup.R b/R/tm_landing_popup.R
@@ -54,6 +54,29 @@
 #'   shinyApp(app2$ui, app2$server)
 #' }
 #'
+#' app3 <- teal::init(
+#'   data = teal.data::dataset("iris", iris),
+#'   modules = teal::modules(
+#'     teal::tm_landing_popup(
+#'       title = "Welcome",
+#'       content = "App will close, once you click the rejection button!",
+#'       buttons = tagList(
+#'         modalButton("Proceed"),
+#'         actionButton("close", "Reject", onclick = "window.close()")
+#'       )
+#'     ),
+#'     module(
+#'       label = "example module",
+#'       server = function(input, output, session, data) {},
+#'       ui = function(id, ...) div(p("Example text"))
+#'     )
+#'   )
+#' )
+#'
+#' if (interactive()) {
+#'   shinyApp(app3$ui, app3$server, options = list(launch.browser = TRUE))
+#' }
+#'
 #' @export
 tm_landing_popup <-
   function(label = "Landing Popup",

diff --git a/man/tm_landing_popup.Rd b/man/tm_landing_popup.Rd