## Not run:
# dat <- oa_list()
#
# out1 <- oa_get(dat$processed[5])
# out2 <- oa_get(dat$processed[35])
# (alldat <- oa_combine(out1, out2))
#
# out4 <- oa_get(dat$processed[788])
# (alldat <- oa_combine(out2, out4))
#
# if (!requireNamespace("leaflet")) {
# install.packages("leaflet")
# }
# library("leaflet")
# leaflet(alldat) %>%
# addTiles() %>%
# addCircles(lat = ~lat, lng = ~lon, popup = ~address)
# ## End(Not run)
Run the code above in your browser using DataLab