Factor out function

openpharma · Jul 25, 2023 · 638e765 · 638e765
1 parent 0263938
commit 638e765
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/brm_data.R b/R/brm_data.R
@@ -72,6 +72,10 @@ brm_data <- function(
     levels_time = NULL
   )
   brm_data_validate(data = out)
+  brm_data_preprocess(out)
+}
+
+brm_data_preprocess <- function(out) {
   out <- brm_data_level(out)
   out <- brm_data_fill(out)
   out <- brm_data_select(out)