R/votacao.R

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

#' Cria vetor informando se o voto por por unanimidade ou por maioria
#'
#' @param x  Vetor de dispositivos
#'
#' @return Vetor
#' @export
#'
votacao <- function(x = NULL) {


    dplyr::case_when(
      stringr::str_detect(x, "(?i)(v\\.\\s?u\\.?|un.ni)") ~ "unânime",
      stringr::str_detect(x, "(?i)v\\.?\\s?u\\.?\\)?\\.?$") ~ "unânime",
      stringr::str_detect(x, "(?i)maioria") ~ "maioria",
      TRUE ~ NA_character_
    )
}