styler

insightsengineering · Sep 7, 2022 · 75a931a · 75a931a
1 parent 0c13ef2
commit 75a931a
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 9 deletions.
diff --git a/R/ext01.R b/R/ext01.R
@@ -95,15 +95,14 @@ ext01_1_pre <- function(adam_db,
     dm_update_zoomed()
 
   if (nrow(db$adex) > 0L) {
+    param_vars <- db$adex %>%
+      select(.data$PARAM, .data$PARAMCD) %>%
+      dunlin::co_relevels("PARAMCD", "PARAM", paramcd_order)
 
-  param_vars <- db$adex %>%
-    select(.data$PARAM, .data$PARAMCD) %>%
-    dunlin::co_relevels("PARAMCD", "PARAM", paramcd_order)
-
-  db <- db %>%
-    dm_zoom_to("adex") %>%
-    mutate(PARAM = param_vars$PARAM, PARAMCD = param_vars$PARAMCD) %>%
-    dm_update_zoomed()
+    db <- db %>%
+      dm_zoom_to("adex") %>%
+      mutate(PARAM = param_vars$PARAM, PARAMCD = param_vars$PARAMCD) %>%
+      dm_update_zoomed()
   }
 
   db

diff --git a/R/vst02.R b/R/vst02.R
@@ -161,7 +161,7 @@ vst02_2_main <- function(adam_db,
 
   tbl <- build_table(lyt, dbsel$advs, alt_counts_df = dbsel$adsl)
 
-    if (prune_0) {
+  if (prune_0) {
     tbl <- smart_prune(tbl)
   }