Don't remove reporter id column, closes #11 (#12)

* remove reporter_person_id * read in date as character then use dht to format * update renv files * Release for image version 2.0.1
degauss-org · Apr 27, 2021 · 540aa47 · 540aa47
1 parent 71a1adb
commit 540aa47
Show file tree

Hide file tree

Showing 17 changed files with 590 additions and 15,105 deletions.
diff --git a/.gitignore b/.gitignore
@@ -5,3 +5,5 @@
 .DS_Store
 old_test/
 *geocoding_cache/
+test/test_dates.csv
+test/R*
diff --git a/README.md b/README.md
@@ -10,7 +10,7 @@
 If `sample_addresses_geocoded.csv` is a file in the current working directory with coordinate columns named `lat` and `lon`, then
 
 ```sh
-docker run --rm -v $PWD:/tmp degauss/jfs_report_from_geocoded_file:2.0 sample_addresses_geocoded.csv
+docker run --rm -v $PWD:/tmp degauss/jfs_report_from_geocoded_file:2.0.1 sample_addresses_geocoded.csv
 ```
 
 will produce `sample_addresses_geocoded_mandated_reporter_report.html` and `sample_addresses_geocoded_race_report.html`.

diff --git a/docs/mandated_reporter_report.html b/docs/mandated_reporter_report.html
diff --git a/docs/race_report.html b/docs/race_report.html
diff --git a/entrypoint.R b/entrypoint.R
@@ -18,12 +18,12 @@ suppressPackageStartupMessages(library(readr))
 d <- read_csv(args$file_name,
               col_types = cols(INTAKE_ID = col_character(),
                                SCREENING_DECISION = col_character(),
-                               DECISION_DATE = col_date(),
+                               DECISION_DATE = col_character(),
                                PERSON_ID = col_character(),
                                RACE = col_character(),
                                ADDRESS_START = col_date(),
                                MANDATED_REPORTER = col_character(),
-                               REPORTER_PERSON_ID = col_character(),
+                              #  REPORTER_PERSON_ID = col_character(),
                                address_type = col_character(),
                                address = col_character(),
                                bad_address = col_logical(),
@@ -42,6 +42,7 @@ d <- read_csv(args$file_name,
                                fraction_vacant_housing = col_double(),
                                dep_index = col_double()
                                ))
+d <- dplyr::mutate(d, DECISION_DATE = dht::check_dates(DECISION_DATE))
 
 rmarkdown::render(input = '/app/race_report.rmd',
                   params = list(d = d),