Erro nos comandos decorrente a atualização de dependencias

[pedrivom]

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

[pedrivom]

aparentemente redefinindo a função parse_api(), substituindo dentro da subfunção pluck() o statement ".default = N" por ".default = NA", a busca de ceps volta a funcionar normalmente:

parse_api <- function(response) {
out <- tibble(
estado = pluck(response, "estado", .default = NA) %>%
pluck("sigla", .default = NA)%>%
as.character(),
cidade = pluck(response, "cidade", .default = NA) %>%
pluck("nome", .default = NA)%>%
as.character(),
bairro = pluck(response, "bairro", .default = NA)%>%
as.character(),
cep = pluck(response, "cep", .default = NA)%>%
as.character(),
logradouro = pluck(response, "logradouro", .default = NA)%>%
as.character(),
latitude = pluck(response, "latitude", .default = NA) %>%
as.numeric(),
longitude = pluck(response, "longitude", .default = NA) %>%
as.numeric(),
altitude = pluck(response, "altitude", .default = NA) %>%
as.numeric(),
ddd = pluck(response, "cidade", .default = NA) %>%
pluck("ddd", .default = NA) %>%
as.numeric(),
cod_IBGE = pluck(response, "cidade", .default = NA) %>%
pluck("ibge", .default = NA) %>%
as.character()
)
out
}