R/latlong_comarca.R

In jjesusfilho/tjsp: Coleta e organização de dados do Tribunal de Justiça de São Paulo

#' Encontra latlong das comarcas
#'
#' @param df tibble com nomes das comarcas.
#'
#' @return mesma tibble com latlongs
#' @export
#'
latlong_comarca <- function(df){

i <- imoveis %>%
     dplyr::group_by(comarca) %>%
     dplyr::mutate(lat = mean(lat),
                   lng = mean(lng)) %>%
     dplyr::distinct(comarca,lat,lng)

df %>%
    dplyr::filter(!is.na(comarca)) %>%
    dplyr::mutate(comarca = fuzzy_search(comarca,imoveis$comarca)) %>%
    dplyr::left_join(i,by="comarca")

}