# \donttest{
library(dplyr, warn.conflicts = FALSE)
sample_addresses %>%
geocode_combine(
queries = list(list(method = "census"), list(method = "osm")),
global_params = list(address = "addr"), cascade = TRUE
)
more_addresses <- tibble::tribble(
~street_address, ~city, ~state, ~zip_cd,
"624 W DAVIS ST #1D", "BURLINGTON", "NC", 27215,
"201 E CENTER ST #268", "MEBANE", "NC", 27302,
"100 Wall Street", "New York", "NY", 10005,
"Bucharest", NA, NA, NA
)
more_addresses %>%
geocode_combine(
queries = list(
list(method = "census", mode = "batch"),
list(method = "census", mode = "single"),
list(method = "osm")
),
global_params = list(
street = "street_address",
city = "city", state = "state", postalcode = "zip_cd"
),
query_names = c("census batch", "census single", "osm")
)
more_addresses %>%
geocode_combine(
queries = list(
list(
method = "census", mode = "batch", street = "street_address",
city = "city", state = "state", postalcode = "zip_cd"
),
list(method = "arcgis", address = "street_address")
),
cascade = FALSE,
return_list = TRUE
)
# }
Run the code above in your browser using DataLab