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

Merge branch 'main' into sgy

Browse source
This commit is contained in:
syounkin 2024-11-20 09:52:58 -06:00
commit 912e12de2d
5 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]