| library(magrittr) | |
| library(tibble) | |
| library(dplyr) | |
| # https://api.os.uk/downloads/v1/products/Terrain50/downloads?area=GB&format=ASCII+Grid+and+GML+%28Grid%29&redirect | |
| vrt_sources_from_paths <- function(source_paths){ | |
| sources_tibble <- tibble() |
| library(tidyverse) | |
| my_h3s <- tibble(id = unlist(h3jsr::polyfill(WalesIshOTPGraph:::bounds(), 8))) %>% | |
| rowwise() %>% mutate( | |
| pnt = h3jsr::h3_to_point(id), | |
| plygn = h3jsr::h3_to_polygon(id) | |
| ) | |
| sf::st_geometry(my_h3s) <- my_h3s$pnt |
It is quite difficult to reliably identify:
in UK OpenStreetMap data.
It would be useful to be able to identify these things for a) more clearly exposing the purpose of a site for general mapping or search purposes and b) producing travel time/accessibility analyses.
| [ | |
| { | |
| "biomarkers": [ | |
| "1022191000000100", | |
| "994351000000103", | |
| "1006191000000106", | |
| "1005691000000109", | |
| "1001371000000100", | |
| "1003671000000109", | |
| "1010611000000107", |
