From 27d061de0b3837b79ab1dae9c07f9c3bee36f0ba Mon Sep 17 00:00:00 2001 From: m7pr Date: Mon, 16 Oct 2023 11:40:32 +0200 Subject: [PATCH] fix lintr --- R/tm_landing_popup.R | 9 +++++++-- man/landing_popup.Rd | 5 ++++- 2 files changed, 11 insertions(+), 3 deletions(-) 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')") + ) ) )