fix: had incorrectly split variables for glm_ipd

timcadman · Apr 12, 2024 · e244243 · e244243
1 parent 9c92f26
commit e244243
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/R/pool.R b/R/pool.R
@@ -99,7 +99,8 @@ poolCheckArgs <- function(imputed_glm, type, coh_names, family, exponentiate){
          family = family,
          coh_names = coh_names, 
          direction = "wide",
-         ci_format = "separate")
+         ci_format = "separate", 
+         digits = 20)
      )
 
       if(type == "glm_slma"){
@@ -144,17 +145,16 @@ poolCheckArgs <- function(imputed_glm, type, coh_names, family, exponentiate){
  splitCoefs <- function(tidied_coefs, type, coh_names){
 
    cohort <- variable <- NULL
+
+    if (type == "glm_ipd"){
+      tidied_coefs <- tidied_coefs %>% 
+       mutate(., cohort = coh_names) 
+   }
 
-   if(type == "glm_slma"){
    split_coefs <- tidied_coefs %>% 
      group_by(cohort, variable) %>%
      group_split()
-
-   } else if (type == "glm_ipd"){
-     split_coefs <- list(tidied_coefs) %>% 
-       map(~mutate(., cohort = coh_names))
-   }
-
+
    return(split_coefs)
 
  }