add 2023 tax bills

ccao-data · Jul 11, 2024 · a49e2f6 · a49e2f6
1 parent c0b4294
commit a49e2f6
Show file tree

Hide file tree

Showing 13 changed files with 13 additions and 9 deletions.
diff --git a/data-raw/sample_tax_bills/2023_100_16121020130000.pdf b/data-raw/sample_tax_bills/2023_100_16121020130000.pdf
diff --git a/data-raw/sample_tax_bills/2023_203_19324120260000.pdf b/data-raw/sample_tax_bills/2023_203_19324120260000.pdf
diff --git a/data-raw/sample_tax_bills/2023_206_14184010080000.pdf b/data-raw/sample_tax_bills/2023_206_14184010080000.pdf
diff --git a/data-raw/sample_tax_bills/2023_211_16043020250000.pdf b/data-raw/sample_tax_bills/2023_211_16043020250000.pdf
diff --git a/data-raw/sample_tax_bills/2023_278_04084020280000.pdf b/data-raw/sample_tax_bills/2023_278_04084020280000.pdf
diff --git a/data-raw/sample_tax_bills/2023_299_17053010621043.pdf b/data-raw/sample_tax_bills/2023_299_17053010621043.pdf
diff --git a/data-raw/sample_tax_bills/2023_318_11314160360000.pdf b/data-raw/sample_tax_bills/2023_318_11314160360000.pdf
diff --git a/data-raw/sample_tax_bills/2023_517_16302070060000.pdf b/data-raw/sample_tax_bills/2023_517_16302070060000.pdf
diff --git a/data-raw/sample_tax_bills/2023_523_09204000280000.pdf b/data-raw/sample_tax_bills/2023_523_09204000280000.pdf
diff --git a/data-raw/sample_tax_bills/2023_599_10363270331003.pdf b/data-raw/sample_tax_bills/2023_599_10363270331003.pdf
diff --git a/data-raw/sample_tax_bills/sample_tax_bills_detail.R b/data-raw/sample_tax_bills/sample_tax_bills_detail.R
@@ -26,9 +26,11 @@ row_to_names <- function(df) {
 
 # Different tax bills can have different table sizes depending on the number of
 # taxing district.
-extract_tax_bill <- function(file) {
+
+extract_tax_bill <- function(file){
   base_file <- basename(file)
-  tbl <- pdf_text(file)[[1]] %>%
+  tbl <- pdf_text(file) %>%
+    paste(., collapse='\n') %>%
     str_extract(., regex("MISCELLANEOUS TAXES.*", dotall = TRUE)) %>%
     str_split(., "\n") %>%
     unlist() %>%
@@ -46,12 +48,12 @@ extract_tax_bill <- function(file) {
       agency_name = str_squish(agency_name),
       flag = is.na(prev_tax),
       prev_tax = if_else(flag,
-        pension,
-        prev_tax
+                         pension,
+                         prev_tax
       ),
       pension = if_else(flag,
-        NA,
-        pension
+                        NA,
+                        pension
       )
     ) %>%
     select(-flag) %>%
@@ -61,7 +63,8 @@ extract_tax_bill <- function(file) {
         agency_name,
         paste0(
           "TAXES|Assess|Property|EAV|Local Tax|",
-          "Total Tax|Do not|Equalizer|cookcountyclerk.com"
+          "Total Tax|Do not|Equalizer|cookcountyclerk.com|",
+          "Pursuant|meaning of|If paying later|\\d{15}+|By \\d{2}/"
         )
       )
     )
@@ -76,6 +79,7 @@ extract_tax_bill <- function(file) {
   return(out)
 }
 
+
 # Collect all scanned tables + meta data in a data frame
 bills <- map(list_pdf_inputs, extract_tax_bill)
 bills_df <- bind_rows(bills)

diff --git a/data-raw/sample_tax_bills/sample_tax_bills_detail.csv b/data-raw/sample_tax_bills/sample_tax_bills_detail.csv
diff --git a/data/sample_tax_bills_detail.rda b/data/sample_tax_bills_detail.rda