R/get_addr.R

In tomasbarcellos/milton: Geolocalizar Dados No Brasil

##' get_addr
#'
#' Returns the corresponding geocoordinates (latitude, longitude) of a given an address .
#' Uses Open Street Maps JSON API (requires jsonlite). By D.Kisler
#'
#' @param address Character value containing street adress
#' @export
#'

get_addr <- function(address = NULL){
  if (length(address) > 1) {
    return(
      address %>%
        purrr::map(get_addr) %>%
        purrr::reduce(c)
    )
  }

  vazio <- sf::st_sfc(sf::st_point(), crs = 4674)

  if(suppressWarnings(is.null(address) | isTRUE(is.na(address)))) {
    return(vazio)
  }

  if (is_cep(address)) {
    return(get_addr(cep(address)))
  }

  address <- gsub("\\s+", "\\%20", address)
  tryCatch(
    d <- jsonlite::fromJSON(
      glue::glue("http://nominatim.openstreetmap.org/search?q=",
                 "{address}&format=json&addressdetails=0&limit=1")
    ), error = function(c) return(vazio)
  )

  if(length(d) == 0) return(vazio)

  sf::st_sfc(
    sf::st_point(c(as.numeric(d$lon), as.numeric(d$lat))),
    crs = 4674
  )

}