Space fix

nhs-r-community · May 3, 2024 · cb21a2f · cb21a2f
1 parent 2a08d28
commit cb21a2f
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/create_waiting_list.R b/R/create_waiting_list.R
@@ -51,8 +51,7 @@ create_waiting_list <- function(n, mean_arrival_rate, mean_wait,
   #simulate non-zero waitlist at end of simulated period.
   if (limit_removals) {
     test_df$removal_date[test_df$removal_date >
-                           (as.Date(start_date, format = "%Y-%m-%d") + n)]
-    <- NA
+                          (as.Date(start_date, format = "%Y-%m-%d") + n)] <- NA
     test_df$wait_length[is.na(test_df$removal_date)] <- NA
   }