Use identical instead of !=

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 = if (all(datanames != "all")) union(datanames, parent_dataname) else "all",
+    datanames = if (identical(datanames, "all")) union(datanames, parent_dataname) else "all",
     server_args = list(
       parent_dataname = parent_dataname,
       plot_height = plot_height,