inst/extdata/testBatch.R

In chris-prener/gateway: Tools for Working with St. Louis Spatial Data

library(dplyr)
devtools::load_all()

df <- tibble(
  id = c(1,6,8,9),
  address = c("20 N Grand", "Not an Address", "3720 Laclede Ave", "Taylor at Newstead")
)

df <- tibble(
  id = c(1:2),
  address = c("Not an Address", "Really not an address")
)

gw_add_batch(df, id = id, address = address, threshold = 90, crs = 102696)



gw_add_batch(df, id = id, address = address, threshold = 90, crs = 4269)

gw_geocode(df, var = address, type = "city batch", class = "tibble")