Use deprecated() and missing

Author: llrs-roche

R/tm_data_table.R

@@ -86,8 +86,8 @@
 #'
 tm_data_table <- function(label = "Data Table",
                           variables_selected = list(),
-                          datasets_selected = character(0),
-                          datanames = if (!length(datasets_selected)) "all" else datasets_selected,
+                          datasets_selected = deprecated(),
+                          datanames = if (missing(datasets_selected)) "all" else datasets_selected,
                           dt_args = list(),
                           dt_options = list(
                             searching = FALSE,

R/tm_front_page.R

@@ -71,8 +71,8 @@ tm_front_page <- function(label = "Front page",
                           tables = list(),
                           additional_tags = tagList(),
                           footnotes = character(0),
-                          show_metadata = FALSE,
-                          datanames = if (isTRUE(show_metadata)) "all" else NULL) {
+                          show_metadata = deprecated(),
+                          datanames = if (missing(show_metadata)) "all" else character(0)) {
   message("Initializing tm_front_page")
 
   # Start of assertions
@@ -81,7 +81,6 @@ tm_front_page <- function(label = "Front page",
   checkmate::assert_list(tables, types = "data.frame", names = "named", any.missing = FALSE)
   checkmate::assert_multi_class(additional_tags, classes = c("shiny.tag.list", "html"))
   checkmate::assert_character(footnotes, min.len = 0, any.missing = FALSE)
-  checkmate::assert_flag(show_metadata)
   if (!missing(show_metadata)) {
     lifecycle::deprecate_soft(
       when = "0.4.0",

R/tm_variable_browser.R

@@ -81,8 +81,8 @@
 #' @export
 #'
 tm_variable_browser <- function(label = "Variable Browser",
-                                datasets_selected = character(0),
-                                datanames = if (length(datasets_selected) == 0) "all" else datasets_selected,
+                                datasets_selected = deprecated(),
+                                datanames = if (missing(datasets_selected)) "all" else datasets_selected,
                                 parent_dataname = "ADSL",
                                 pre_output = NULL,
                                 post_output = NULL,