R - Transforma um texto (string) em CNPJ

str_cnpj.r

# Função para transformar uma string em CNPJ.

str_cnpj <- Vectorize(function(x) {
  
  # Remove todas as pontuações do string
  y <- stringr::str_remove_all(stringr::str_squish(x), "[[:punct:]]")
  
  # Testa se o string resultante possui 14 caracteres
  if (stringr::str_length(y) == 14) {
    
    # Se passar a validação, transforma em data frame, pegando as seções numéricas como de um CNPJ
    df <- data.frame(
      s1 = stringr::str_sub(string = y, start = 1, end = 2),
      s2 = stringr::str_sub(string = y, start = 3, end = 5),
      s3 = stringr::str_sub(string = y, start = 6, end = 8),
      s4 = stringr::str_sub(string = y, start = 9, end = 12),
      s5 = stringr::str_sub(string = y, start = 13, end = 14)
    )
    
    # Realiza a interpolação dos dados para texto em formato CNPJ
    stringr::str_interp("${s1}.${s2}.${s3}/${s4}-${s5}", df)
    
  } else {
    
    # Retorno caso o texto inserido não possua 14 caracteres
    "CNPJ inválido"
    
  }
  
})