Compare commits
2 Commits
ef51272a69
...
d559b8605e
Author | SHA1 | Date | |
---|---|---|---|
|
d559b8605e | ||
|
acf70cc6d2 |
@ -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,16 +137,18 @@ 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)
|
||||||
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