R/tjsp_classificar_sentenca.R

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

#' Classifica decisões de primeiro grau
#'
#' @param x vetor de sentenças
#'
#' @return decisão
#' @export
#'
#' @examples
#' \dontrun{
#' x <- tjsp_classificar_sentenca(x = sentenca)
#' }
tjsp_classificar_sentenca <- function (x)
{

x<- x %>%
     stringr::str_sub(-2000) %>%
      tolower() %>%
      stringi::stri_trans_general("latin-ascii")

      dplyr::case_when(
      stringr::str_detect(x,"(?i)julgo\\sparcial\\w+") ~ "parcial",
      stringr::str_detect(x,"(?i)\\bparcial\\w+") ~ "parcial",
      stringr::str_detect(x,"(?i)julgo\\s+procecente em parte") ~ "parcial",
      stringr::str_detect(x,"(?i)\\bprocecente em parte") ~ "parcial",
      stringr::str_detect(x,"desistencia") ~ "desist\u00eancia",
      stringr::str_detect(x,"\\bhomologo\\b") ~  "homologa\u00e7\u00e3o",
      stringr::str_detect(x,"(?i)julgo\\s+procede\\w+") ~ "procedente",
      stringr::str_detect(x,"(?i)julgo\\simprocede\\w+") ~ "improcedente",
      stringr::str_detect(x,"(?i)\\bprocede\\w+") ~ "procedente",
      stringr::str_detect(x,"(?i)\\bimprocede\\w+") ~ "improcedente",
      stringr::str_detect(x,"(?i)prejudicad[ao]") ~  "prejudicado",
      stringr::str_detect(x,"(?i)(an)?nul[ao](do)?") ~ "nulo",
      stringr::str_detect(x,"(?i)extin\\w+") ~ "extinto",
      TRUE ~ NA_character_
    )
}

#' @rdname tjsp_classificar_sentenca
#' @export
classificar_sentenca2 <- tjsp_classificar_sentenca