changed function to produce stdout

leibniz-psychology · Sep 5, 2024 · 82626c8 · 82626c8
1 parent 1024da6
commit 82626c8
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/rma.R b/R/rma.R
@@ -38,4 +38,6 @@ rma <- function(yi,vi,measure,d,effect="Effect") {
   }else{
     rma_model <- metafor::rma.uni(yi=dat[,yi],vi=dat[,vi],measure=measure,slab=paste(dat$r_author, dat$r_year))
   }
+  gc() # Force R to release memory it is no longer using
+  return(rma_model)
 }