correct preprocessing (#142)

Co-authored-by: benoit <[email protected]>
insightsengineering · Feb 15, 2022 · 405dec2 · 405dec2
1 parent 638337d
commit 405dec2
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/standard_data_preprocessing.R b/R/standard_data_preprocessing.R
@@ -264,8 +264,9 @@ filter_admh_anl01fl <- function(adam_db) {
   assert_that(is(adam_db, "dm"))
 
   adam_db %>%
-    dm_filter(admh, bol_YN(ANL01FL)) %>%
-    dm_apply_filters()
+    dm_zoom_to(admh) %>%
+    filter(ANL01FL == "Y") %>%
+    dm_update_zoomed()
 }
 
 #' Filter `adex` for `PARCAT1`