if (FALSE) {
# Create and send a query to ohsome API
r <- ohsome_query("elements/centroid", filter = "amenity=*") |>
set_boundary(osmdata::getbb("Heidelberg")) |>
set_time("2021") |>
set_properties("metadata") |>
ohsome_post(parse = FALSE)
# Parse response to object of default class (here: sf)
ohsome_parse(r)
# Parse response to data.frame
ohsome_df(r)
# Parse response to sf
ohsome_sf(r)
}
Run the code above in your browser using DataLab