Simplify code branch

Author: llrs-roche

R/tm_missing_data.R

@@ -1156,47 +1156,27 @@ srv_missing_data <- function(id,
       )
 
       # convert to ggplot
-      if (!is.null(group_vals)) {
-        ANL_q <- within(qenv, # nolint object_name_linter
-          {
-            keep_columns <- intersect(c(keys, group_var), colnames(ANL))
-            labels <- vapply(ANL, formatters::obj_label, character(1L))
-            ANL <- ANL %>%
-              filter(group_var_name %in% group_vals) %>%
-              pivot_longer(-keep_columns, values_transform = is.na) %>%
-              summarise(
-                .by = c(group_var_name, name),
-                value = sum(value), perc = value / n()
-              ) %>%
-              mutate(label = labels[name])
-          },
-          keys = join_keys(qenv) |> unlist() |> unique(),
-          group_var_name = as.name(group_var),
-          group_var = group_var,
-          group_vals = group_vals
-        )
-      } else {
-        ANL_q <- within(qenv, # nolint object_name_linter
-          {
-            keep_columns <- intersect(c(keys, group_var), colnames(ANL))
-            labels <- vapply(ANL, formatters::obj_label, character(1L))
-            ANL <- ANL %>%
-              pivot_longer(-keep_columns, values_transform = is.na) %>%
-              summarise(
-                .by = c(group_var_name, name),
-                value = sum(value), perc = value / n()
-              ) %>%
-              mutate(label = labels[name])
-          },
-          keys = join_keys(qenv) |> unlist() |> unique(),
-          group_var_name = as.name(group_var),
-          group_var = group_var
-        )
-      }
-      req(NROW(ANL_q$ANL) > 0)
-      browser(expr = group_var == "RACE")
+      ANL_q <- within(qenv, # nolint object_name_linter
+                      {
+                        keep_columns <- intersect(c(keys, group_var), colnames(ANL))
+                        labels <- vapply(ANL, formatters::obj_label, character(1L))
+                        ANL <- ANL %>%
+                          filter(group_var_name %in% group_vals) %>%
+                          pivot_longer(-keep_columns, values_transform = is.na) %>%
+                          summarise(
+                            .by = c(group_var_name, name),
+                            value = sum(value), perc = value / n()
+                          ) %>%
+                          mutate(label = labels[name])
+                      },
+                      keys = join_keys(qenv) |> unlist() |> unique(),
+                      group_var_name = as.name(group_var),
+                      group_var = group_var,
+                      group_vals = group_vals
+      )
+
       tile <- within(ANL_q,
-        {
+                     {
           by_variable_plot <- ggplot(ANL, aes(group_var_name, label)) +
             geom_tile(aes(fill = column)) +
             geom_text(aes(label = scales::percent(perc)),