Remove check of valid dates

Modification is meant to work behind a firewall, until I can come up with a better approach.
kbrevoort · May 29, 2020 · e1f2e49 · e1f2e49
1 parent 4e52cf4
commit e1f2e49
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/mapping.R b/R/mapping.R
@@ -23,8 +23,8 @@ source_tiger_shapefile <- function(geography, year, resolution = '20m') {
   if (!is.character(geography) |
       !geography %in% c('state', 'county', 'cbsa', 'metro', 'micro', 'csa'))
     stop('Invalid geo value supplied to source_tiger_shapefiles')
-  if (!is.numeric(year) | !year %in% source_tiger_map_years())
-    stop('Invalid year supplied to source_tiger_shapefiles.')
+  #if (!is.numeric(year) | !year %in% source_tiger_map_years())
+  #  stop('Invalid year supplied to source_tiger_shapefiles.')
   if (!resolution %in% c('500k', '5m', '20m'))
     stop('Invalid resolution supplied to source_tiger_shapefiles.')