merge 2 example for landing page popup

insightsengineering · Oct 25, 2023 · 10ac427 · 10ac427
1 parent e847ac9
commit 10ac427
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 42 deletions.
diff --git a/R/landing_popup_module.R b/R/landing_popup_module.R
@@ -39,27 +39,9 @@
 #'       ),
 #'       buttons = tagList(
 #'         modalButton("Proceed"),
-#'         actionButton("close", "Read more",
+#'         actionButton("read", "Read more",
 #'           onclick = "window.open('http://google.com', '_blank')"
-#'         )
-#'       )
-#'     ),
-#'     example_module()
-#'   )
-#' )
-#'
-#' if (interactive()) {
-#'   shinyApp(app2$ui, app2$server)
-#' }
-#'
-#' app3 <- teal::init(
-#'   data = teal.data::dataset("iris", iris),
-#'   modules = teal::modules(
-#'     teal::landing_popup_module(
-#'       title = "Welcome",
-#'       content = "App will close, once you click the rejection button!",
-#'       buttons = tagList(
-#'         modalButton("Proceed"),
+#'         ),
 #'         actionButton("close", "Reject", onclick = "window.close()")
 #'       )
 #'     ),
@@ -68,7 +50,7 @@
 #' )
 #'
 #' if (interactive()) {
-#'   shinyApp(app3$ui, app3$server, options = list(launch.browser = TRUE))
+#'   shinyApp(app2$ui, app2$server)
 #' }
 #'
 #' @export

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