chore(docs/lints): ran devtools::document() and some linting

Author: amyheather

NAMESPACE

@@ -4,6 +4,7 @@ export(ReplicationTabuliser)
 export(ReplicationsAlgorithm)
 export(WelfordStats)
 export(calc_arrivals)
+export(calc_mean_patients_in_service)
 export(calc_mean_queue)
 export(calc_mean_serve_length)
 export(calc_mean_wait)

R/get_run_results.R

@@ -81,7 +81,7 @@ calc_mean_patients_in_service <- function(patient_count, groups = NULL) {
   # Calculate the time-weighted number of patients in the service
   patient_count %>%
     # Sort by time
-    arrange(time) %>%
+    arrange(.data[["time"]]) %>%
     # Calculate time between this row and the next
     mutate(interval_duration = (lead(.data[["time"]]) - .data[["time"]])) %>%
     # Multiply each patient count by its own unique duration. The total of