Merge dbe98de into ba99b57

NEWS.md

@@ -4,6 +4,7 @@
 * Replaced `synthetic_cdisc_data` with refactored `synthetic_cdisc_dataset` function to speed up dataset loading in tests/examples.
 * Updated all tests to use `rcd_2022_06_27` version of cached data.
 * Added more tests to increase code coverage.
+* Deprecated badge and warning for `wrap_txt` and its file.
 
 ### Bug Fixes
 * Fixed bug causing incorrect ordering of numeric grade levels when missing grades are present in `s_count_occurrences_by_grade`.

R/wrap_text.R

@@ -1,6 +1,7 @@
 #' Split String
 #'
-#' Return split text that fits onto page width.
+#' @description `r lifecycle::badge("deprecated")`
+#'   Return split text that fits onto page width.
 #'
 #' @param txt string (or vector of strings) to be split in multiple lines, not that
 #' \code{\\n} is also split into to lines
@@ -27,6 +28,7 @@ wrap_text <- function(txt, # nolint
                       width = grid::convertWidth(grid::unit(1, "npc"), "inch", TRUE),
                       gp = grid::gpar(),
                       collapse = NULL) {
+  warning("This is a deprecated function as there is a current implementation in rtables, not based on grid::")
   if (grid::is.unit(width)) {
     width <- grid::convertWidth(width, "inch", TRUE)
   }