if (FALSE) {
q <- opq ("portsmouth usa") |>
add_osm_features (features = list (
"amenity" = "restaurant",
"amenity" = "pub"
))
q <- opq ("portsmouth usa") |>
add_osm_features (features = c (
"\"amenity\"=\"restaurant\"",
"\"amenity\"=\"pub\""
))
cat (opq_string (q))
# This extracts in a single query the same result as the following:
q1 <- opq ("portsmouth usa") |>
add_osm_feature (
key = "amenity",
value = "restaurant"
)
q2 <- opq ("portsmouth usa") |>
add_osm_feature (key = "amenity", value = "pub")
c (osmdata_sf (q1), osmdata_sf (q2)) # all restaurants OR pubs
# Get objects with keys (`natural` OR `waterway`) AND `name`
q_keys <- opq ("Badia del Vallès", osm_types = "nwr", out = "tags") |>
add_osm_features (features = list (natural = NULL, waterway = NULL)) |>
add_osm_feature (key = "name")
cat (opq_string (q_keys))
}
Run the code above in your browser using DataLab