Merge branch 'main' into 136_fix_widget@main

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: teal.widgets
-Title: Shiny Widgets for 'teal' Applications
-Version: 0.4.0.9010
-Date: 2023-09-27
+Title: 'shiny' Widgets for 'teal' Applications
+Version: 0.4.0.9012
+Date: 2023-09-29
 Authors@R: c(
     person("Dawid", "Kaledkowski", , "[email protected]", role = c("aut", "cre")),
     person("Pawel", "Rucki", , "[email protected]", role = "aut"),
@@ -13,6 +13,8 @@ Authors@R: c(
     person("F. Hoffmann-La Roche AG", role = c("cph", "fnd"))
   )
 Description: Collection of 'shiny' widgets to support 'teal' applications.
+    Enables the manipulation of application layout and plot or table
+    settings.
 License: Apache License 2.0
 URL: https://insightsengineering.github.io/teal.widgets/,
     https://github.com/insightsengineering/teal.widgets

NEWS.md

@@ -1,4 +1,4 @@
-# teal.widgets 0.4.0.9010
+# teal.widgets 0.4.0.9012
 
 ### Miscellaneous
 

R/optionalInput.R

@@ -328,11 +328,6 @@ updateOptionalSelectInput <- function(session, # nolint
 #'  vector of HTML icons corresponding to  data type in each column.
 #' @keywords internal
 #'
-#' @examples
-#' teal.widgets:::variable_type_icons(c(
-#'   "integer", "numeric", "logical", "Date", "POSIXct", "POSIXlt",
-#'   "factor", "character", "unknown", ""
-#' ))
 variable_type_icons <- function(var_type) {
   checkmate::assert_character(var_type, any.missing = FALSE)
 
@@ -381,12 +376,6 @@ variable_type_icons <- function(var_type) {
 #' @return (`character`) HTML contents with all elements combined
 #' @keywords internal
 #'
-#' @examples
-#' teal.widgets:::picker_options_content(
-#'   var_name = c("SEX", "BRMRKR1"),
-#'   var_label = c("Sex", "Biomarker 1"),
-#'   var_type = c("factor", "numeric")
-#' )
 picker_options_content <- function(var_name, var_label, var_type) {
   if (length(var_name) == 0) {
     return(character(0))