Olá,
Utilizei o script de artigo que que utiliza a biblioteca cepR:

#cria um data frame temporário que será utilizado para ser preenchido durante as iterações relativas a cada CEP.
geo_coded<- data.frame(estado=character(),cidade=character
bairro=character(),cep=character(),logradouro=character(),latitude=character(),longitude=character(),altitude=character(),ddd=character(),cod_IBGE=character(),quality = logical(),cep_buscado = character(),stringsAsFactors=FALSE)
cep_unico <- as.character(unique(internacoes$CEP)) # cria um vetor com os CEPS sem repetição para minimizar a realização das consultas na API do CEP Aberto
#Loop de consulta de cada CEP listado no vetor: cep_unico
for (i in 1:10000) {
sys1 <- Sys.time()
consulta <-busca_cep(cep=(cep_unico[[i]]), token= ‘seu token’)
consulta$quality <- anyNA(c(consulta$latitude, consulta$longitude))
consulta$cep_buscado <- cep_unicos[[i]]
geo_coded <- rbind(geo_coded, consulta, make.row.names=FALSE)
if(Sys.time()-sys1 <=4.0) Sys.sleep(4.0-(Sys.time()-sys1))}

Consegui fazer consultas que foram muito úteis, mas na última semana a busca começa e depois ocorre o seguinte erro:

Error in curl::curl_fetch_memory(url, handle = handle) :
schannel: next InitializeSecurityContext failed: SEC_E_CERT_EXPIRED (0x80090328) - O certificado recebido expirou.

Você pode me ajudar?

Desde já agradeço.

These are coming back sometimes from busca_cidade():

Error in max(sapply(this, list_depth)) : 
  invalid 'type' (list) of argument

Error in names(object) <- nm : 
  'names' attribute [2] must be the same length as the vector [1]

Os comandos do pacote estavam funcionando normalmente até eu atualizar o pacote "purrr", a partir desse momento começaram a apresentar o seguinte erro:

sp <- cepR::busca_cidades(estado = "SP", token = token)
Error in map_chr():
! In index: 1.
! With name: node.
Caused by error in pluck_raw():
! Can't pluck from a pointer at level 1.

rlang::last_trace()
<error/purrr_error_indexed>
Error in map_chr():
! In index: 1.
! With name: node.
Caused by error in pluck_raw():
! Can't pluck from a pointer at level 1.

Backtrace:
▆

1. ├─cepR::busca_cidades(estado = "SP", token = token)
2. │ └─tibble::tibble(...)
3. │ └─tibble:::tibble_quos(xs, .rows, .name_repair)
4. │ └─rlang::eval_tidy(xs[[j]], mask)
5. └─purrr::map_chr(...)
6. └─purrr:::map_("character", .x, .f, ..., .progress = .progress)

7. ├─purrr:::with_indexed_errors(...)
   

8. │ └─base::withCallingHandlers(...)
   

9. ├─purrr:::call_with_cleanup(...)
   

10. └─cepR (local) .f(.x[[i]], ...)
    

11.   └─purrr::pluck(.x, "nome", .default = NA_character_)
    

12.     └─purrr:::pluck_raw(.x, list2(...), .default = .default)
    

Nos demais comandos não apresenta erro, apenas devolve a tabela com valores vazios:

cepR::busca_multi(lista_ceps = "81540000", token = token)

A tibble: 1 × 10

estado cidade bairro cep logradouro latitude longitude altitude ddd cod_IBGE

1 NA NA NA NA NA NA NA NA NA NA

Hi,
I tested your Package cepR, works fine for me but in the Code I saw you are using the older API V2.
There is an new API V3, can you update your Package ?
http://cepaberto.com/api_key
Thank you

While running the code below:

library(cepR)
token = "XXXXXXXXXXXXX"
Est_MA <- busca_estado(estado = "MA", token = token)

I get the following error:

Error: Can't pluck from a externalptr

Tenho uma lista de 300 ceps quero lat long

Olá pessoal, tudo bem?

Estou tentando usar o pacote seguindo os comandos do readme, para testar.

Mas nenhum funciona.

Abaixo deixei uma lista dos comandos que tentei usar. Poderiam me dizer se há algum problema com o pacote, por favor?

Obrigada desde já!

Comando data("sp") retorna: In data("sp") : data set ‘sp’ not found

Comando sp <- busca_estado(estado = "SP", token = token) retorna: Error in busca_estado(estado = "SP", token = token) : precisa 'cidade'

Aí incluí a cidade (tentei São Paulo com e sem acento), mas o resultado é um df com todas as colunas e uma linha, mas só com NAs.

No comando busca_cep(token = token), obtenho o seguinte erro:
Error in paste0(base_url, "cep?cep=", cep) : object 'base_url' not found
Called from: paste0(base_url, "cep?cep=", cep)

Se eu coloco algum cep na busca, o erro volta igual.