From fc15bae7e02f1d7c0f89fc5206172f70fbc3c088 Mon Sep 17 00:00:00 2001 From: Ben Varick Date: Mon, 27 Jan 2025 15:22:24 -0600 Subject: [PATCH] moved scripts to archive, added messages to console --- R/{ => archive}/school_maps.R | 0 R/{ => archive}/school_maps_parallel.R | 0 R/schoolmaps_PDFs.Rmd | 4 ++-- 3 files changed, 2 insertions(+), 2 deletions(-) rename R/{ => archive}/school_maps.R (100%) rename R/{ => archive}/school_maps_parallel.R (100%) diff --git a/R/school_maps.R b/R/archive/school_maps.R similarity index 100% rename from R/school_maps.R rename to R/archive/school_maps.R diff --git a/R/school_maps_parallel.R b/R/archive/school_maps_parallel.R similarity index 100% rename from R/school_maps_parallel.R rename to R/archive/school_maps_parallel.R diff --git a/R/schoolmaps_PDFs.Rmd b/R/schoolmaps_PDFs.Rmd index c9c5f01..4fd07cb 100644 --- a/R/schoolmaps_PDFs.Rmd +++ b/R/schoolmaps_PDFs.Rmd @@ -249,7 +249,7 @@ options(osrm.profile = "walk") ``` ## Function to generate maps -```{r schoolmaps, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE} +```{r schoolmaps, eval = TRUE, echo = TRUE, results = "show", warning = NA, error = TRUE, message = NA} generate_school_maps <- function(district) { message(paste("***", district, "School District |")) @@ -398,7 +398,7 @@ generate_school_maps <- function(district) { ``` ## Generate the school maps -```{r generatemaps, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE} +```{r generatemaps, eval = TRUE, echo = TRUE, results = "show", warning = NA, error = TRUE, message = NA} i <- 0 if (run_parameters$parallel) { mclapply(district_focus,