if (FALSE) {
# Get bounding box of the city of Berlin
bbberlin <- osmdata::getbb("Berlin")
# Query for cinema geometries within bounding box
q <- ohsome_elements_geometry(bbberlin, filter = "amenity=cinema")
# Send query to ohsome API and return sf by default
ohsome_post(q)
# Send query to ohsome API and return data.frame
ohsome_post(q, returnclass = "data.frame")
# Send query and return unparsed response
ohsome_post(q, parse = FALSE)
}
Run the code above in your browser using DataLab