Merge pull request #44 from Merck/40-gs_spending_bound-bug-when-ia-is…

…-close-to-fa ongoing fix
Merck · Oct 13, 2022 · f6cb25c · f6cb25c
2 parents 974a18d + b1ef4fa
commit f6cb25c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)