added 'student_number' to routes data table
This commit is contained in:
parent
acf70cc6d2
commit
d559b8605e
@ -146,7 +146,9 @@ for(i in addresses_near %>% arrange(number) %>% pull(number)) {
|
|||||||
"&alternativeidx=0&format=geojson"
|
"&alternativeidx=0&format=geojson"
|
||||||
)
|
)
|
||||||
response <- GET(query)
|
response <- GET(query)
|
||||||
routes[[i]] <- st_read(content <- content(response, as = "text"), quiet = TRUE)
|
route_run <- st_read(content <- content(response, as = "text"), quiet = TRUE)
|
||||||
|
route_run[["student_number"]] <- i
|
||||||
|
routes[[i]] <- route_run
|
||||||
|
|
||||||
|
|
||||||
message(paste0("done - ", i, " of ", max(addresses_near$number)))
|
message(paste0("done - ", i, " of ", max(addresses_near$number)))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user