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

adjust brouter url variable names

Browse Source
This commit is contained in:
Ben Varick 2024-11-05 09:00:58 -06:00
parent ef51272a69
commit acf70cc6d2
No known key found for this signature in database
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cycling_route_analysis_brouter.Rmd
View File

@ -71,15 +71,16 @@ bike_lts_scale <- data.frame(code = c(1, 2, 3, 4, 9),
## Open Source Routing Machine (OSRM) ## Open Source Routing Machine (OSRM)
```{r osrm, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE} ```{r osrm, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
# Set url and profile of OSRM server
options(osrm.server = "http://127.0.0.1:5001/") options(osrm.server = "http://127.0.0.1:5001/")
options(osrm.profile = "bike") options(osrm.profile = "bike")
``` ```
## Brouter options ## Brouter options
```{r brouter, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE} ```{r brouter, eval = TRUE, echo = TRUE, results = "show", warning = FALSE, error = TRUE, message = FALSE}
# Prepare the URL query # Set url and profile of brouter server
url <- "http://127.0.0.1:17777/brouter" brouter_url <- "http://127.0.0.1:17777/brouter"
profile <- "trekking" # choose appropriate profile brouter_profile <- "trekking"
``` ```
## Stadia Maps API Key ## Stadia Maps API Key
@ -136,12 +137,12 @@ routes <- list(NULL)
school_focus_location <- WI_schools %>% filter(NCES_CODE %in% school_focus$NCES_CODE) %>% select(LAT, LON) school_focus_location <- WI_schools %>% filter(NCES_CODE %in% school_focus$NCES_CODE) %>% select(LAT, LON)
for(i in addresses_near %>% arrange(number) %>% pull(number)) { for(i in addresses_near %>% arrange(number) %>% pull(number)) {
query <- paste0( query <- paste0(
url, brouter_url,
"?lonlats=", "?lonlats=",
(addresses_near %>% filter(number == i) %>% pull(point) %>% str_split(., ","))[[1]][1], ",", (addresses_near %>% filter(number == i) %>% pull(point) %>% str_split(., ","))[[1]][1], ",",
(addresses_near %>% filter(number == i) %>% pull(point) %>% str_split(., ","))[[1]][2], "|", (addresses_near %>% filter(number == i) %>% pull(point) %>% str_split(., ","))[[1]][2], "|",
school_focus_location$LON, ",", school_focus_location$LAT, school_focus_location$LON, ",", school_focus_location$LAT,
"&profile=", profile, "&profile=", brouter_profile,
"&alternativeidx=0&format=geojson" "&alternativeidx=0&format=geojson"
) )
response <- GET(query) response <- GET(query)