From b9d8bd27de503a36fd341e6f3688a5f34dd344ff Mon Sep 17 00:00:00 2001
From: James McMahon <james.mcmahon@phs.scot>
Date: Fri, 24 Nov 2023 13:15:00 +0000
Subject: [PATCH] Update extract_fin_year.R

---
 R/extract_fin_year.R | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/R/extract_fin_year.R b/R/extract_fin_year.R
index 8492690..1e03581 100644
--- a/R/extract_fin_year.R
+++ b/R/extract_fin_year.R
@@ -27,11 +27,7 @@ extract_fin_year <- function(date, format = c("full", "numeric")) {
                    not a {.cls {class(date)}} vector.")
   }
 
-  if (missing(format)) {
-    format <- "full"
-  } else {
-    format <- match.arg(format)
-  }
+  format <- rlang::arg_match(format)
 
   if (inherits(date, "POSIXlt")) {
     posix <- date