R/AVSDevR.MarineNoiseRegistry
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: R:v1.0.3
Branches Tags
R:main
R:v1.0.4 R:v1.0.3 R:v1.0.2 R:v1.0.1 R:v1.0.0
...
compare: R:766d27a50880f4200f33e8d602b33a1a41d7b09e
Branches Tags
R:main
R:v1.0.4 R:v1.0.3 R:v1.0.2 R:v1.0.1 R:v1.0.0

2 Commits
v1.0.3 ... 766d27a508

Author SHA1 Message Date
Craig Williams
766d27a508 Increment version number to 1.0.4 2026-06-05 11:43:44 +01:00
Craig Williams
3ebeea6cc7 Fixed closeout-due date for multi-year after year close-out done 2026-06-05 11:42:46 +01:00
2 changed files with 4 additions and 2 deletions
Expand all files Collapse all files

2
DESCRIPTION
View File

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

4
R/db_applications.R
View File

@@ -357,7 +357,9 @@ MNR.DB.Applications <- R6::R6Class(
# Work out what the closeout closeout year should be # Work out what the closeout closeout year should be
dplyr::mutate( dplyr::mutate(
closeout_year = as.Date(paste( 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, 12L,
31L, 31L,
sep = "-" sep = "-"