Merge pull request #248 from ropensci/239-get_stats19

Set year to 1979 if earlier than 2018, close #239

NEWS.md

@@ -1,6 +1,7 @@
 # stats19 3.1.0 2024-07
 
 * stats19 now relies on the `stats19_variables` object to format the different tables columns (#245) (credit @layik), fixing an issue in which ages were removed from the `casualties` table, fixing (#235)
+* If `year` is less than 2018 the package auto-downloads the full dataset (#239)
 
 # stats19 3.0.3 2024-02
 

R/get.R

@@ -124,6 +124,11 @@ get_stats19 = function(year = NULL,
     output_format = "tibble"
   }
 
+  # Update year to 1979 if it's NULL or before 2018:
+  if (is.null(year) || year < 2018) {
+    year = 1979
+  }
+
   # download what the user wanted
   dl_stats19(year = year,
              type = type,

data-raw/tests/test-year.qmd

@@ -0,0 +1,11 @@
+---
+format: gfm
+---
+
+Test date:
+
+
+```{r}
+devtools::load_all()
+crashes = get_stats19(year = 2005, type = "accidents")
+```