From 82626c8d294204b52de0375d926faacecae1ec6c Mon Sep 17 00:00:00 2001
From: Robert Rostu Studtrucker <rs@leibniz-psychology.org>
Date: Thu, 5 Sep 2024 10:36:52 +0200
Subject: [PATCH] changed function to produce stdout

---
 R/rma.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/rma.R b/R/rma.R
index c22e6f9..d4cea76 100644
--- 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)
 }