ben/route_analysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Created runTLS flag

Browse Source 
runTLS is a boolean variable that controls whether the ltscount chunk is evaluated
This commit is contained in:
syounkin 2024-11-07 10:28:42 -06:00
parent 3a90407738
commit ba5c5c9c29
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cycling_route_analysis_brouter.Rmd
View File

@ -30,6 +30,7 @@ library(httr)
library(jsonlite) library(jsonlite)
library(parallel) library(parallel)
fig.height <- 6 fig.height <- 6
runTLS <- FALSE
set.seed(1) 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") 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&rsquo;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) { getLTSForRoute <- function(i) {
# Filter the routes for the current student number # Filter the routes for the current student number