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

added shortest brouter profile

Browse source 
add download safest profile from source repo

other small edits to clean up code
This commit is contained in:
Ben Varick 2024-11-14 17:53:00 -06:00
parent 39d86edb1a
commit 01a4270d2b
Signed by: ben
SSH key fingerprint: SHA256:jWnpFDAcacYM5aPFpYRqlsamlDyKNpSj3jj+k4ojtUo
4 changed files with 83 additions and 448 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/functions.R
View file

@ -1,7 +1,7 @@
getLTSForRoute <- function(i) {
getLTSForRoute <- function(i, route_table) {
# Filter the routes for the current student number
current_route <- routes %>% filter(student_number == i)
current_route <- route_table %>% filter(student_number == i)
# Find intersecting OBJECTIDs
intersecting_ids <- relevant_buffer$OBJECTID[lengths(st_intersects(relevant_buffer, current_route)) > 0]