From b1ef4fadd2965bd79c0fdd0b420ae5a7cbacbf2b Mon Sep 17 00:00:00 2001
From: LittleBeannie <yujie.zhao@merck.com>
Date: Thu, 13 Oct 2022 12:00:32 -0400
Subject: [PATCH] fix `eAccural`

---
 R/eAccrual.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/eAccrual.R b/R/eAccrual.R
index 8c259bd1..f11b484a 100644
--- a/R/eAccrual.R
+++ b/R/eAccrual.R
@@ -147,7 +147,7 @@ eAccrual <- function(x = 0:24,
                   FUN = function(i){
                     as.numeric(xx[[i]]$eAccrual[ind[[i]]])
                   })
-    ans <- do.call("+", ans)
+    ans <- ans %>% purrr::reduce(`+`)
   }
   
   return(ans)