R/vencidos_carf.R

In jjesusfilho/carf: Baixa e organiza dados do CARF

#' Extrai nomes dos conselheiros com votos vencidos
#'
#' @param df tibble após aplicação da função votacao_carf
#' @param dispositivo coluna com dispositivo
#'
#' @return mesma tibble com três novas colunas: vencido1
#'     vencido2 e vencido3
#' @export
#'
#' @examples
#' \dontrun{
#' df <- vencidos_carf(df)
#' }
vencidos_carf <- function(df, dispositivo = dispositivo) {

  disp <- rlang::enexpr(dispositivo)

  df %>%
    dplyr::mutate(
      vencidos = ifelse(
        votacao == "maioria",
        stringr::str_extract(
          !!disp,
          "(?i)(?<=vencid[ao]s? [ao]s? conselheir[ao]s? ).+?(?=(\\bque\\b|\\.|;))"
        ),
        NA_character_
      ),
      vencidos = stringr::str_trim(vencidos) %>%
        stringr::str_remove(",$"),
      vencidos = stringr::str_remove_all(vencidos, "\\(relatora?\\)")
    ) %>%
    tidyr::separate(vencidos,
                    paste0("vencido", 1:3),
                    sep = "(, |\\be\\b)",
                    extra = "merge")
}