diff --git a/R/tm_landing_popup.R b/R/tm_landing_popup.R index 618a4cd84..caabd73da 100644 --- a/R/tm_landing_popup.R +++ b/R/tm_landing_popup.R @@ -32,7 +32,10 @@ #' extra_server = teal.modules.general::landing_popup( #' title = "Welcome", #' content = div(tags$b("A place for the welcome message or a disclaimer statement.", style = "color: red;")), -#' buttons = tagList(modalButton("Proceed"), actionButton("close", "Read more", onclick = "window.open('http://google.com', '_blank')")) +#' buttons = tagList( +#' modalButton("Proceed"), +#' actionButton("close", "Read more", onclick = "window.open('http://google.com', '_blank')") +#' ) #' ) #' ) #' @@ -43,7 +46,9 @@ #' @export landing_popup <- function(title = NULL, content = NULL, buttons = modalButton("Accept")) { checkmate::assert_string(title, null.ok = TRUE) - checkmate::assert_multi_class(content, classes = c("character", "shiny.tag", "shiny.tag.list", "html"), null.ok = TRUE) + checkmate::assert_multi_class( + content, classes = c("character", "shiny.tag", "shiny.tag.list", "html"), null.ok = TRUE + ) checkmate::assert_multi_class(buttons, classes = c("shiny.tag", "shiny.tag.list"), null.ok = TRUE) showModal( diff --git a/man/landing_popup.Rd b/man/landing_popup.Rd index 98b276b63..880d070f4 100644 --- a/man/landing_popup.Rd +++ b/man/landing_popup.Rd @@ -42,7 +42,10 @@ app2 <- teal::init( extra_server = teal.modules.general::landing_popup( title = "Welcome", content = div(tags$b("A place for the welcome message or a disclaimer statement.", style = "color: red;")), - buttons = tagList(modalButton("Proceed"), actionButton("close", "Read more", onclick = "window.open('http://google.com', '_blank')")) + buttons = tagList( + modalButton("Proceed"), + actionButton("close", "Read more", onclick = "window.open('http://google.com', '_blank')") + ) ) )