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")
)
ponto <- pontos[1,]
# geocode reverso
df_enderecos <- geocodebr::geocode_reverso(
pontos = ponto,
dist_max = 800,
verboso = TRUE
)
head(df_enderecos)
}
Run the code above in your browser using DataLab