Update lifecycle badges (#313)

Part of insightsengineering/coredev-tasks#649

Removed stable badges.
Removed `experimental` badges
- for functions introduced in `init` commit
2f43fb5
- for a function introduced in 0.4.2, now we will vbump to at least
0.4.4
#199

---------

Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>

Author: m7pr

NEWS.md

@@ -2,6 +2,7 @@
 
 ### Breaking changes
 * `panel_group()` and `panel_item()` are deprecated. Please use the `bslib::accordion()` and `bslib::accordion_panel()` instead.
+* `nested_closeable_modal()` was deprecated.
 
 ### Bug fixes
 * Recompute the `live-search` option value dynamically in `updateOptionalSelectInput` (#291)

R/basic_table_args.R

@@ -1,6 +1,6 @@
 #' Builds a `basic_table_args` object
 #'
-#' @description `r lifecycle::badge("experimental")`
+#' @description
 #' This function has to be used to build an input for a `basic_table_args` argument.
 #' The `basic_table_args` argument should be a part of every module which contains any `rtables` object.
 #' Arguments are validated to match their `rtables` equivalents.
@@ -29,7 +29,7 @@ basic_table_args <- function(...) {
 
 #' Resolves and reduces multiple `basic_table_args` objects
 #'
-#' @description `r lifecycle::badge("experimental")`
+#' @description
 #' Resolving and reducing multiple `basic_table_args` objects.
 #' This function is intended to utilize user provided settings, defaults provided by the module creator and
 #' also `teal` option. See `Details`, below, to understand the logic.
@@ -88,7 +88,7 @@ resolve_basic_table_args <- function(user_table = basic_table_args(),
 
 #' Parses `basic_table_args` object into the `basic_table` expression
 #'
-#' @description `r lifecycle::badge("experimental")`
+#' @description
 #' A function to parse expression from the `basic_table_args` object.
 #' @param basic_table_args (`basic_table_args`)\cr
 #'  This argument could be a result of the [`resolve_basic_table_args()`].

R/draggable_buckets.R

@@ -12,7 +12,7 @@ draggable_buckets_deps <- function() {
 }
 
 #' @title Draggable Buckets
-#' @description  `r lifecycle::badge("experimental")`
+#' @description
 #' A custom widget with draggable elements that can be put into buckets.
 #'
 #' @param input_id (`character(1)`) the `HTML` id of this widget

R/get_dt_rows.R

@@ -1,6 +1,6 @@
 #' Map `lenghtMenu` property
 #'
-#' @description `r lifecycle::badge("stable")`\cr
+#' @description
 #' Maps the `lengthMenu` selected value property of `DT::datatable` to a `shiny` variable.
 #' @param dt_name `ns()` of `inputId` of the `DT::datatable`
 #' @param dt_rows `ns()` of `inputId` of the variable that holds the current selected value of `lengthMenu`

R/ggplot2_args.R

@@ -1,6 +1,6 @@
 #' Creates `ggplot2_args` object
 #'
-#' @description `r lifecycle::badge("experimental")`
+#' @description
 #' Constructor of `ggplot2_args` class of objects.
 #' The `ggplot2_args` argument should be a part of every module which contains any `ggplot2` graphics.
 #' The function arguments are validated to match their `ggplot2` equivalents.
@@ -44,7 +44,7 @@ ggplot2_args <- function(labs = list(), theme = list()) {
 
 #' Resolving and reducing multiple `ggplot2_args` objects
 #'
-#' @description `r lifecycle::badge("experimental")`
+#' @description
 #' Resolving and reducing multiple `ggplot2_args` objects.
 #' This function is intended to utilize user provided settings, defaults provided by the module creator and
 #' also `teal` option. See `Details`, below, to understand the logic.
@@ -109,7 +109,7 @@ resolve_ggplot2_args <- function(user_plot = ggplot2_args(),
 
 #' Parse `ggplot2_args` object into the `ggplot2` expression
 #'
-#' @description `r lifecycle::badge("experimental")`
+#' @description
 #' A function to parse expression from the `ggplot2_args` object.
 #' @param ggplot2_args (`ggplot2_args`)\cr
 #'  This argument could be a result of the [resolve_ggplot2_args()].

R/nested_closeable_modal.R

@@ -1,6 +1,6 @@
 #' Nested Closeable Modal Popup
 #'
-#' @description `r lifecycle::badge("experimental")`
+#' @description `r lifecycle::badge("deprecated")`
 #' Alternative to `shiny::modalDialog`. Create a nested modal popup that can be shown/hidden
 #' using `jQuery` and modal `id`, without disturbing the parent modal.
 #'
@@ -82,6 +82,11 @@
 nested_closeable_modal <- function(id, ..., modal_args = list(easyClose = TRUE)) {
   checkmate::assert_string(id)
   checkmate::assert_list(modal_args)
+  lifecycle::deprecate_soft(
+    when = "0.4.4",
+    what = "nested_closeable_modal()"
+  )
+
   modal_args <- append(list(...), modal_args)
   tagList(
     htmltools::tagQuery(do.call(modalDialog, modal_args))$

R/optionalInput.R

@@ -1,6 +1,6 @@
 #' Wrapper for `pickerInput`
 #'
-#' @description `r lifecycle::badge("stable")`
+#' @description
 #' Wrapper for [shinyWidgets::pickerInput()] with additional features.
 #' When `fixed = TRUE` or when the number of `choices` is less or equal to 1 (see `fixed_on_single`),
 #' the `pickerInput` widget is hidden and non-interactive widget will be displayed
@@ -443,7 +443,7 @@ extract_raw_choices <- function(choices, sep) {
 #'
 #' if min or max are `NA` then the slider widget will be hidden
 #'
-#' @description `r lifecycle::badge("stable")`\cr
+#' @description
 #' Hidden input widgets are useful to have the `input[[inputId]]` variable
 #' on available in the server function but no corresponding visual clutter from
 #' input widgets that provide only a single choice.
@@ -513,7 +513,7 @@ optionalSliderInput <- function(inputId, label, min, max, value, label_help = NU
 #' For `teal` modules we parameterize an `optionalSliderInput` with one argument
 #' `value_min_max`
 #'
-#' @description `r lifecycle::badge("stable")`
+#' @description
 #' The [optionalSliderInput()] function needs three arguments to determine
 #' whether to hide the `sliderInput` widget or not. For `teal` modules we specify an
 #' optional slider input with one argument here called `value_min_max`.

R/plot_with_settings.R

@@ -61,7 +61,7 @@ plot_with_settings_ui <- function(id) {
 #' Plot-with-settings module
 #'
 #' @rdname plot_with_settings
-#' @description `r lifecycle::badge("stable")`\cr
+#' @description
 #' Universal module for plots with settings for height, width, and download.
 #'
 #' @export
@@ -524,7 +524,7 @@ type_download_srv <- function(id, plot_reactive, plot_type, plot_w, default_w, p
 
 #' Clean brushed points
 #'
-#' @description `r lifecycle::badge("stable")`\cr
+#' @description
 #' Cleans and organizes output to account for NAs and remove empty rows. Wrapper around `shiny::brushedPoints`.
 #' @param data (`data.frame`)\cr
 #'  A data.frame from which to select rows.

R/standard_layout.R

@@ -12,7 +12,7 @@ standard_layout_deps <- function() {
 
 #' Standard UI layout
 #'
-#' @description `r lifecycle::badge("stable")`\cr
+#' @description
 #' Create a standard UI layout with output on the right and an encoding panel on
 #' the left. This is the layout used by the `teal` modules.
 #'

R/table_with_settings.R

@@ -14,7 +14,7 @@ table_with_settings_deps <- function() {
 #'
 #' @title `table_with_settings` module
 #'
-#' @description `r lifecycle::badge("stable")`\cr
+#' @description
 #' Module designed to create a `shiny` table output based on `rtable` object (`ElementaryTable` or `TableTree`) input.
 #' @inheritParams shiny::moduleServer
 #' @param ... (`character`)\cr