R/busca_latlon.R

In RobertMyles/cepR: Busca CEPs Brasileiros

#' @title Busca Bairros por Latitude e Longitude
#' @description Busca bairros por latitude e longitude.
#' @importFrom httr GET add_headers content
#' @param lat \code{numerico}. Latitude
#' @param long \code{numerico}. Longitude.
#' @param token Token de autorização. Veja <http://cepaberto.com/users/register>
#' @examples
#' \dontrun{
#' busca_latlon(lat = -20.55, long = -43.63, token = XXXXXX)
#' }
#' @export
busca_latlon <- function(lat = NULL, long = NULL, token = NULL){

  if(is.null(lat)){
    stop("precisa 'latitude'")
  }
  if(is.null(long)){
    stop("precisa 'longitude'")
  }
  if(is.null(token)){
    stop(msg)
  }

  url <- paste0(base_url, "nearest?", "lat=", lat, "&lng=", long)
  auth <- paste0("Token token=", token)
  r <- GET(url, add_headers(Authorization = auth)) %>% content("parsed")
  latlon <- parse_api(r)

  return(latlon)
}