Added code to default to pull to current year if year is NA

NOAA-EDAB · Oct 1, 2024 · 560b113 · 560b113
1 parent 380b5a7
commit 560b113
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/get_comland_raw_data.R b/R/get_comland_raw_data.R
@@ -24,8 +24,9 @@
 get_comland_raw_data <- function(channel, filterByYear = NA, filterByArea = NA,
                                  useLanded = T, removeParts = T){
 
-  #If not specifying a year default to 1964 - 2019
-  if(is.na(filterByYear[1])) filterByYear <- 1964:2019
+  #If not specifying a year default to 1964 - current year
+  currentYear <- as.numeric(format(Sys.Date(),"%Y"))
+  if(is.na(filterByYear[1])) filterByYear <- 1964:currentYear
   filteryears <- sqltext(filterByYear)
 
   message(paste0("Pulling landings data from ",

diff --git a/man/get_comland_data.Rd b/man/get_comland_data.Rd