Remove a dplyr dependency from a function

AnthonyEbert · Sep 4, 2018 · 4e32971 · 4e32971
1 parent f57d576
commit 4e32971
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dplyr_plugins.R b/R/dplyr_plugins.R
@@ -100,7 +100,7 @@ queue_lengths <- function(arrivals, service = 0, departures, epsilon = 1e-10, ..
 #' average_queue(queuedata$times, queuedata$queuelength)
 #' @export
 average_queue <- function(times, queuelength){
-  ((c(diff(times),0) %*% queuelength) / (times[length(times)] - times[1])) %>% as.numeric()
+  as.numeric((c(diff(times),0) %*% queuelength) / (times[length(times)] - times[1]))
 }
 
 #' Summarise queue lengths