R/extrair_ano.R

In courtsbr/JurisMiner: Mineração de textos dos tribunais brasilerios

#' Extrai o ano do número do cnj
#'
#' @param processo Número do processo
#'
#' @return  Vetor número com pontos
#' @export
extrair_ano <- function(processo) {
  
  tamanho <- stringr::str_count(processo[1])
  
  if (tamanho==25){
    
    ano <-   stringr::str_sub(processo,12,15) %>% as.numeric()
  } else if (tamanho == 20){
    
    ano <-    stringr::str_sub(processo,10,13) %>% as.numeric()
    
  } else 
    stop("Tamanho n\u00e3o permitido")
  
  return(ano)
}