From ba5c5c9c29cecbb81004c6ec18ec368328726611 Mon Sep 17 00:00:00 2001 From: syounkin Date: Thu, 7 Nov 2024 10:28:42 -0600 Subject: [PATCH] Created runTLS flag runTLS is a boolean variable that controls whether the ltscount chunk is evaluated --- cycling_route_analysis_brouter.Rmd | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/cycling_route_analysis_brouter.Rmd b/cycling_route_analysis_brouter.Rmd index feff52c..bc840c3 100644 --- a/cycling_route_analysis_brouter.Rmd +++ b/cycling_route_analysis_brouter.Rmd @@ -30,6 +30,7 @@ library(httr) library(jsonlite) library(parallel) fig.height <- 6 +runTLS <- FALSE set.seed(1) ``` @@ -186,9 +187,9 @@ bike_lts_buffer["student_use"] <- unlist(lapply(st_intersects(bike_lts_buffer, r bike_lts <- left_join(bike_lts, as.data.frame(bike_lts_buffer %>% select(OBJECTID, student_use)), by = "OBJECTID") ``` -Notes: for each segment in bike_lts, this counts how many student's calculated routes intersect with it (within a 10 m buffer) +Notes: for each segment in bike_lts, this counts how many student’s calculated routes intersect with it (within a 10 m buffer) -```{r routeslts, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE} +```{r routeslts, eval = runTLS, echo = FALSE, results = "show", warning = FALSE, error = TRUE, message = FALSE} getLTSForRoute <- function(i) { # Filter the routes for the current student number