Home

Timing benchmarks (pre-merge)

First get the raw XML text data from the overpass query:

bbox <- "(51.5,-0.1,51.52,-0.08)"
key <-'[highway]'
query <- paste0 ('(node', key, bbox, ';way', key, bbox, ';rel', key, bbox, ';')
url_base <- 'http://overpass-api.de/api/interpreter?data='
query <- paste0 (url_base, query,');(._;>;);out;')
dat <- httr::GET (query, timeout=60)
result <- httr::content (dat, "text", encoding='UTF-8') 

Benchmarks then rely on both osmdatar and overpass to be loaded locally with devtools::load_all (pkg, export_all=TRUE)