# Notice the "::user" and "::uid" fields in the opq_csv()
q_csv <- opq (bbox = "relation(id:11755232)", out = "meta", osm_type = "node") |>
filter_osm_user (user = "jmaspons") |>
add_osm_feature (key = "name") |>
opq_csv (c ("::type", "::id", "name", "name:ca", "::user", "::uid"))
cat (opq_string (q_csv))
# Warning: csv queries can fail without errors in long running queries. For timeouts,
# it returns empty results.
if (FALSE) {
d_csv <- osmdata_data_frame (q_csv)
d_csv
}
q_touched <- opq (
bbox = "relation(id:11755232)", out = "meta",
osm_type = "node", timeout = 100
) |>
filter_osm_user (user = "jmaspons", touched = TRUE) |>
add_osm_feature (key = "name")
cat (opq_string (q_touched))
if (FALSE) {
d_touched <- osmdata_data_frame (q_touched)
d_touched
}
Run the code above in your browser using DataLab