[skip vbump] Release candidate v1.1.0 (#1649)

llrs-roche · web-flow · commit 4274680a0bea · 2025-11-17T14:53:08.000+01:00
# Pull Request  Fixes #1613 --------- Signed-off-by: Lluís Revilla <185338939+llrs-roche@users.noreply.github.com>
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Type: Package
 Package: teal
 Title: Exploratory Web Apps for Analyzing Clinical Trials Data
-Version: 1.0.0.9023
-Date: 2025-11-14
+Version: 1.1.0
+Date: 2025-11-17
 Authors@R: c(
     person("Dawid", "Kaledkowski", , "dawid.kaledkowski@roche.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-9533-457X")),
@@ -55,7 +55,7 @@ Imports:
     stats,
     teal.code (>= 0.7.0),
     teal.logger (>= 0.4.0),
-    teal.reporter (>= 0.5.0.9001),
+    teal.reporter (>= 0.6.0),
     teal.widgets (>= 0.5.0),
     tools,
     utils
@@ -79,8 +79,6 @@ VignetteBuilder:
     rmarkdown
 RdMacros:
     lifecycle
-Remotes:
-    insightsengineering/teal.reporter@main
 Config/Needs/verdepcheck: rstudio/shiny, insightsengineering/teal.data,
     insightsengineering/teal.slice, mllg/checkmate, jeroen/jsonlite,
     r-lib/lifecycle, daroczig/logger, r-lib/mirai, r-lib/cli,
diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-# teal 1.0.0.9023
+# teal 1.1.0
 
 ### Deprecations and removals
 
diff --git a/R/modules.R b/R/modules.R
@@ -166,10 +166,10 @@ module <- function(label = "module",
       call. = FALSE
     )
   }
-  if (label == "Report previewer") {
+  if (label == "Report Previewer") {
     stop(
       sprintf("module(label = \"%s\", ...\n  ", label),
-      "Label 'Report previewer' is reserved in teal. Please change to something else.",
+      "Label 'Report Previewer' is reserved in teal. Please change to something else.",
       call. = FALSE
     )
   }
@@ -339,11 +339,12 @@ modules <- function(..., label = character(0)) {
 #' cat(format(mod))
 #' @export
 format.teal_module <- function(
-    x,
-    is_last = FALSE,
-    parent_prefix = "",
-    what = c("datasets", "properties", "ui_args", "server_args", "decorators", "transformators"),
-    ...) {
+  x,
+  is_last = FALSE,
+  parent_prefix = "",
+  what = c("datasets", "properties", "ui_args", "server_args", "decorators", "transformators"),
+  ...
+) {
   empty_text <- ""
   branch <- if (is_last) "L-" else "|-"
   current_prefix <- paste0(parent_prefix, branch, " ")
@@ -443,13 +444,13 @@ format.teal_module <- function(
 #' @rdname teal_modules
 #' @examples
 #' custom_module <- function(
-#'     label = "label", ui_args = NULL, server_args = NULL,
-#'     datanames = "all", transformators = list(), bk = FALSE) {
+#'   label = "label", ui_args = NULL, server_args = NULL,
+#'   datanames = "all", transformators = list(), bk = FALSE
+#' ) {
 #'   ans <- module(
 #'     label,
 #'     server = function(id, data, ...) {},
-#'     ui = function(id, ...) {
-#'     },
+#'     ui = function(id, ...) {},
 #'     datanames = datanames,
 #'     transformators = transformators,
 #'     ui_args = ui_args,
diff --git a/R/reporter_previewer_module.R b/R/reporter_previewer_module.R
@@ -18,7 +18,7 @@
 #' `teal_module` (extended with `teal_module_previewer` class) containing the `teal.reporter` previewer functionality.
 #'
 #' @export
-reporter_previewer_module <- function(label = "Report previewer", server_args = list()) {
+reporter_previewer_module <- function(label = "Report Previewer", server_args = list()) {
   checkmate::assert_string(label)
   checkmate::assert_list(server_args, names = "named")
   checkmate::assert_true(all(names(server_args) %in% names(formals(teal.reporter::reporter_previewer_srv))))
@@ -51,7 +51,7 @@ reporter_previewer_module <- function(label = "Report previewer", server_args =
     server_args = server_args, ui_args = list(), datanames = NULL
   )
   # Module is created with a placeholder label and path and both are changed later.
-  # This is to prevent another module being labeled "Report previewer".
+  # This is to prevent another module being labeled "Report Previewer".
   class(module) <- c(class(module), "teal_module_previewer")
   module$label <- label
   module$path <- label
diff --git a/R/teal_modifiers.R b/R/teal_modifiers.R
@@ -47,9 +47,10 @@ teal_replace_ui <- function(x, selector, element) {
 #'   shinyApp(app$ui, app$server)
 #' }
 modify_title <- function(
-    x,
-    title = "teal app",
-    favicon = NULL) {
+  x,
+  title = "teal app",
+  favicon = NULL
+) {
   checkmate::assert_multi_class(x, "teal_app")
   checkmate::assert_multi_class(title, c("shiny.tag", "shiny.tag.list", "html", "character"))
   checkmate::assert_string(favicon, null.ok = TRUE)
@@ -146,11 +147,12 @@ modify_footer <- function(x, element = tags$p()) {
 #'   shinyApp(app$ui, app$server)
 #' }
 add_landing_modal <- function(
-    x,
-    title = NULL,
-    content = NULL,
-    footer = modalButton("Accept"),
-    ...) {
+  x,
+  title = NULL,
+  content = NULL,
+  footer = modalButton("Accept"),
+  ...
+) {
   checkmate::assert_class(x, "teal_app")
   custom_server <- function(input, output, session) {
     checkmate::assert_string(title, null.ok = TRUE)
diff --git a/R/utils.R b/R/utils.R
@@ -315,8 +315,9 @@ validate_app_title_tag <- function(shiny_tag) {
 #' @return A `shiny.tag` containing the element that adds the title and logo to the `shiny` app.
 #' @export
 build_app_title <- function(
-    title = "teal app",
-    favicon = "https://raw.githubusercontent.com/insightsengineering/hex-stickers/main/PNG/nest.png") {
+  title = "teal app",
+  favicon = "https://raw.githubusercontent.com/insightsengineering/hex-stickers/main/PNG/nest.png"
+) {
   lifecycle::deprecate_soft(
     when = "0.16.0",
     what = "build_app_title()",
diff --git a/man/reporter_previewer_module.Rd b/man/reporter_previewer_module.Rd
diff --git a/man/teal_modules.Rd b/man/teal_modules.Rd
diff --git a/tests/testthat/test-modules.R b/tests/testthat/test-modules.R
@@ -1,8 +1,6 @@
-call_module_server_fun <- function(input, output, session, data) {
-}
+call_module_server_fun <- function(input, output, session, data) {}
 
-module_server_fun <- function(id, data) {
-}
+module_server_fun <- function(id, data) {}
 
 ui_fun1 <- function(id, ...) {
   tags$p(paste0("id: ", id))
diff --git a/tests/testthat/test-reporter_previewer_module.R b/tests/testthat/test-reporter_previewer_module.R
@@ -10,8 +10,8 @@ testthat::describe("reporter_previewer_module", {
 
   testthat::it("uses default label", {
     module <- reporter_previewer_module()
-    testthat::expect_equal(module$label, "Report previewer")
-    testthat::expect_equal(module$path, "Report previewer")
+    testthat::expect_equal(module$label, "Report Previewer")
+    testthat::expect_equal(module$path, "Report Previewer")
   })
 
   testthat::it("throws error when label is not a string", {
diff --git a/tests/testthat/test-teal_slices.R b/tests/testthat/test-teal_slices.R
@@ -112,15 +112,9 @@ testthat::test_that(
 )
 
 
-
-
-
-
-
 # from different file
 
 
-
 testthat::test_that("teal_slices mapping should be an empty list or a named list or missing", {
   testthat::expect_no_error(
     teal_slices(

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-# teal 1.0.0.9023`
	`1`	`+# teal 1.1.0`
`2`	`2`
`3`	`3`	`### Deprecations and removals`
`4`	`4`