## ----eval=FALSE---------------------------------------------------------------
# sf::st_read (file, layer = "points")

## ----trentham, eval=FALSE-----------------------------------------------------
# q <- opq (bbox = "Trentham, Australia")
# q <- add_osm_feature (q, key = "name") # any named objects
# osmdata_xml (q, "trentham.osm")

## ----eval=FALSE---------------------------------------------------------------
# names (sf::st_read ("trentham.osm", layer = "points", quiet = TRUE))

## ----echo=FALSE---------------------------------------------------------------
c (
    "osm_id",     "name",       "barrier",    "highway",    "ref",
    "address",    "is_in",      "place",      "man_made",   "other_tags",
    "geometry"
)

## ----eval=FALSE---------------------------------------------------------------
# names (osmdata_sf (q, "trentham.osm")$osm_points)

## ----echo=FALSE---------------------------------------------------------------
c (
    "osm_id", "name", "X_description_", "X_waypoint_",
    "addr.city", "addr.housenumber", "addr.postcode", "addr.street",
    "amenity", "barrier", "denomination", "foot",
    "ford", "highway", "leisure", "note_1",
    "phone", "place", "railway", "railway.historic",
    "ref", "religion", "shop", "source",
    "tourism", "waterway", "geometry"
)

## ----eval=FALSE---------------------------------------------------------------
# addr <- sf::st_read ("trentham.osm", layer = "points", quiet = TRUE)$address
# all (is.na (addr))

## ----echo=FALSE---------------------------------------------------------------
TRUE