## Not run:
# (out1 <- oa_get("http://data.openaddresses.io/runs/142103/at/tirol.zip"))
# (out2 <-
# oa_get("http://data.openaddresses.io/runs/142676/ca/bc/victoria.zip"))
#
# # from a openadd class object
# oa_get(as_openadd(country="us", state="nv", city="las_vegas"))
#
# # combine data sets
# (alldat <- oa_combine(out1, out2))
#
# # Map data
# if (!requireNamespace("leaflet")) {
# install.packages("leaflet")
# }
# library(leaflet)
# small <- out2[[1]][1:5000,]
# leaflet(small) %>%
# addTiles() %>%
# addCircles(lat = ~LAT, lng = ~LON,
# popup = unname(apply(small[, c('NUMBER', 'STREET')], 1,
# paste, collapse = " ")))
# ## End(Not run)
Run the code above in your browser using DataLab