extend to do.call case with func param as text

R/FunctionReporter.R

@@ -407,6 +407,14 @@ FunctionReporter <- R6::R6Class(
 
 
     if (listable){
+
+        # If do.call and first argument is string (atomic), covert to call
+        if (length(x) >= 2){
+            if (deparse(x[[1]]) == "do.call" & is.character(x[[2]])){
+                x[[2]] <- parse(text=x[[2]])
+            }
+        }
+
         # Filter out atomic values because we don't care about them
         x <- Filter(f = Negate(is.atomic), x = x)
 

inst/baseballstats/R/batting_statistics.R

@@ -77,7 +77,8 @@ slugging_avg <- function(outcomes){
                       4 * sum(outcomes == 'hr')
                      }
 
-    return(bases_on_hits / at_bats(outcomes))
+    denom <- do.call("at_bats", outcomes)
+    return(bases_on_hits / denom)
 }