Há alguns dias fiz uma pergunta no stack, conforme link. A resposta que recebi do prof. @Marcus Nunes mostra que menos de 10% das linhas possuem mais de 15 separadores do tipo ;
. Nesse caso, desejo apagar todas as linhas com mais de 15 ;
para separar colunas. Um primeiro código para proceder esta limpeza e gerar um novo banco de dados segue abaixo, no entanto, o mesmo não funcionou corretamente. Gostaria de receber alguma sugestão de como proceder para atingir meu objetivo?
library("tidyverse")
library("stringr")
teste <- readLines("2019_Viagem.csv")
count <- str_count(teste, ';')
teste <- teste[count==15]
write.csv2(teste,"plan2019.csv",row.names = FALSE)
Diaria2019_Via <- "iconv -f ISO-8859-1 -t UTF-8 plan2019.csv"
Diaria2019 <- data.table::fread(Diaria2019_Via, dec = ",")