Retorna o logradouro e o latlong com base no cep

via_cep.R

library(httr)
library(stringr)
library(purrr)
library(magrittr)
library(ggmap)

via_cep<-function(cep,latlong=TRUE){
  cep %<>%stringr::str_replace("\\D","") %>% 
  stringr::str_pad(8,side="left",pad="0") %>% 
  as.character()
  df<-cep %>% 
    purrr::map_dfr(~{
      paste0("https://viacep.com.br/ws/",.x,"/json/") %>% 
    httr::GET() %>% 
      httr::content()
       })
  
  df2<-df %>% 
    pmap_dfr(~{
    .x %>% 
      t() %>% 
    toString() %>% 
    ggmap::geocode()
  })
df<-cbind(df,df2)
df
}