From b6494dc2b672fd31e0bfbd90f7d8f423f396a83d Mon Sep 17 00:00:00 2001
From: Matt Dray <18232097+matt-dray@users.noreply.github.com>
Date: Fri, 6 Feb 2026 09:55:19 +0000
Subject: [PATCH] Rename sex before factorising

---
 R/utils_data.R | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/R/utils_data.R b/R/utils_data.R
index b5c39f7..521e2b0 100644
--- a/R/utils_data.R
+++ b/R/utils_data.R
@@ -14,16 +14,13 @@ prepare_age_sex_data <- function(age_sex_data) {
         .data[["age_group"]],
         levels = .env[["age_fct"]]
       ),
-      dplyr::across(
-        "sex",
-        \(value) {
-          forcats::fct_recode(
-            as.character(value),
-            "Males" = "1",
-            "Females" = "2"
-          )
-        }
+      sex = dplyr::case_match(
+        .data[["sex"]],
+        "1" ~ "Males",
+        "2" ~ "Females",
+        .default = NA_character_
       ),
+      sex = factor(.data[["sex"]], levels = c("Males", "Females")),
       dplyr::across(
         "n",
         \(value) {