From 95397de0a6c9bed31eae2d332d4a338281e2feeb Mon Sep 17 00:00:00 2001 From: m7pr Date: Tue, 24 Oct 2023 12:23:14 +0200 Subject: [PATCH] extend tm_landing_popup examples with another module --- R/tm_landing_popup.R | 10 ++++++++++ man/tm_landing_popup.Rd | 10 ++++++++++ 2 files changed, 20 insertions(+) diff --git a/R/tm_landing_popup.R b/R/tm_landing_popup.R index 8224d1fdba..f97d2d55b2 100644 --- a/R/tm_landing_popup.R +++ b/R/tm_landing_popup.R @@ -19,6 +19,11 @@ #' teal::tm_landing_popup( #' content = "A place for the welcome message or a disclaimer statement.", #' buttons = modalButton("Proceed") +#' ), +#' module( +#' label = "example module", +#' server = function(input, output, session, data) {}, +#' ui = function(id, ...) div(p("Example text")) #' ) #' ) #' ) @@ -36,6 +41,11 @@ #' modalButton("Proceed"), #' actionButton("close", "Read more", onclick = "window.open('http://google.com', '_blank')") #' ) +#' ), +#' module( +#' label = "example module", +#' server = function(input, output, session, data) {}, +#' ui = function(id, ...) div(p("Example text")) #' ) #' ) #' ) diff --git a/man/tm_landing_popup.Rd b/man/tm_landing_popup.Rd index 04bf3c0435..63bf937a04 100644 --- a/man/tm_landing_popup.Rd +++ b/man/tm_landing_popup.Rd @@ -37,6 +37,11 @@ app1 <- teal::init( teal::tm_landing_popup( content = "A place for the welcome message or a disclaimer statement.", buttons = modalButton("Proceed") + ), + module( + label = "example module", + server = function(input, output, session, data) {}, + ui = function(id, ...) div(p("Example text")) ) ) ) @@ -54,6 +59,11 @@ app2 <- teal::init( modalButton("Proceed"), actionButton("close", "Read more", onclick = "window.open('http://google.com', '_blank')") ) + ), + module( + label = "example module", + server = function(input, output, session, data) {}, + ui = function(id, ...) div(p("Example text")) ) ) )