Increment version number to 1.0.4

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: AVSDevR.MarineNoiseRegistry
 Title: Marine Noise Registry Common Code Package
-Version: 1.0.3
+Version: 1.0.4
 Authors@R: 
     person("Craig", "Williams", , "craig@avsdev.uk", role = c("aut", "cre"))
 Description: Comon code and assets for all of the Marine Noise Registry

R/db_applications.R

@@ -357,7 +357,9 @@ MNR.DB.Applications <- R6::R6Class(
         # Work out what the closeout closeout year should be
         dplyr::mutate(
           closeout_year = as.Date(paste(
-            lubridate::year(pmax(start_date, closed_at, na.rm = TRUE)),
+            lubridate::year(
+              pmax(start_date, last_closeout_at, closed_at, na.rm = TRUE)
+            ),
             12L,
             31L,
             sep = "-"