R/votacao_carf.R

In jjesusfilho/carf: Baixa e organiza dados do CARF

#' Cria coluna com votação
#'
#' @param df Tibble lido com ler_decisao_carf
#' @param dispositivo dispositivo
#'
#' @return mesma tibble adicionada da coluna votação
#' @export
#'
#' @examples
#' \dontrun{
#' df <- votacao_carf(df)
#' }
votacao_carf <- function(df, dispositivo = dispositivo) {
  x1 <- rlang::enquo(dispositivo)

  df %>%
    dplyr::mutate(votacao = dplyr::case_when(
      stringr::str_detect(!!x1, "(?i)(v\\.\\s?u\\.?|un.ni)") ~ "unanimidade",
      stringr::str_detect(!!x1, "(?i)v\\.?\\s?u\\.?\\)?\\.?$") ~ "unanimidade",
      stringr::str_detect(!!x1, "(?i)maioria") ~ "maioria",
      stringr::str_detect(!!x1, "(?i)voto de qualidade") ~ "qualidade",
      TRUE ~ "indefinido"
    ))
}