Use "all" instead of c("all", parent_dataname)

Author: llrs-roche

R/tm_missing_data.R

@@ -162,7 +162,7 @@ tm_missing_data <- function(label = "Missing data",
   ans <- module(
     label,
     server = srv_page_missing_data,
-    datanames = union(datanames, parent_dataname),
+    datanames = if (all(datanames != "all")) union(datanames, parent_dataname) else "all",
     server_args = list(
       parent_dataname = parent_dataname,
       plot_height = plot_height,

R/tm_variable_browser.R

@@ -125,7 +125,7 @@ tm_variable_browser <- function(label = "Variable Browser",
     label,
     server = srv_variable_browser,
     ui = ui_variable_browser,
-    datanames = union(datanames, parent_dataname),
+    datanames = if (all(datanames != "all")) union(datanames, parent_dataname) else "all",
     server_args = list(
       datanames = datanames,
       parent_dataname = parent_dataname,