rdornas

# 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) {
    

rdornas

/* rs-theme-name: Mariana (Pro)*/
/* rs-theme-is-dark: TRUE */

.ace_gutter {
  background: #23292E;
  color: #D0F4FF80
}
.ace_gutter-active-line {
  background-color: #39434C
}

rdornas

/* rs-theme-name: Sea Abyss */
/* rs-theme-is-dark: TRUE */

.ace_gutter {
  background: #1F303F;
  color: #58585c
}
.ace_gutter-active-line {
  background-color: #282A2E
}