refactor assign_round_number

WorldHealthOrganization · Feb 6, 2025 · 3cdd61f · 3cdd61f
1 parent d235fc9
commit 3cdd61f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/assign_round_number.R b/R/assign_round_number.R
@@ -66,13 +66,13 @@ assign_round_number <- function(df,
 
   # Create a round group label for the distinct dates
   distinct_dates$ClusterID <- clusters
-  round_labels <- unique(format(distinct_dates[[date_col]], "%B %Y"))
+  round_labels <- unique(format(distinct_dates[[date_col]], "%b %Y"))
 
   # Create round group labels based on clusters
   distinct_dates <- distinct_dates |>
     dplyr::group_by(ClusterID) |>
     dplyr::mutate(
-      round_group = format(dplyr::first(.data[[date_col]]), "%B %Y")
+      round_group = format(dplyr::first(.data[[date_col]]), "%b %Y")
     ) |>
     dplyr::ungroup()