fix minor bug in tidy_maturity_months should it ever be applied with …

…usability_codes == NULL
pbs-assess · Jan 6, 2025 · 34e3839 · 34e3839
1 parent 66ca660
commit 34e3839
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/mat-freq-month.R b/R/mat-freq-month.R
@@ -16,8 +16,9 @@ NULL
 tidy_maturity_months <- function(dat, months = seq(1, 12),
   usability_codes = c(0, 1, 2, 6), french = FALSE) {
 
-  if (!is.null(usability_codes))
+  if (!is.null(usability_codes)){
     dat <- filter(dat, .data$usability_code %in% usability_codes)
+  }
 
   dat <- mutate(dat, month = lubridate::month(trip_start_date))
   dat <- filter(dat, month %in% months)