if (FALSE) { # identical(tolower(Sys.getenv("NOT_CRAN")), "true")
library(geocodebr)
library(sf)
# ler amostra de dados
pontos <- readRDS(
system.file("extdata/pontos.rds", package = "geocodebr")
)
pontos <- pontos[1:50,]
# geocode reverso
df_enderecos <- geocodebr::geocode_reverso(
pontos = pontos,
dist_max = 1000,
verboso = TRUE,
n_cores = 1
)
}
Run the code above in your browser using DataLab