Toda vez que eu tento fazer a operação abaixo eu obtenho um erro:
setwd('C:\\Users\\MatheuS\\Documents\\file')
library(readr)
fns = list.files(patt="\\.txt")
sapply(fns, function(x){ assign(gsub("C:\\Users\\MatheusdosSantos\\Documents\\files\\.txt","", x), read.table(x, head=T,sep=";"),
envir=.GlobalEnv); NULL})
n <- length(fns)
for (i in 1:n){
dado1[i] <- read.table(fns[i], head=T,sep=";")
names(fns[i])[grep("ï..ID", names(fns[i]))] <- "ID"
write.table(fns[i], dado1, sep="\t", row.names = FALSE, quote=FALSE, na= "", eol = "\r\n")
}
dado1 <- read.table(fns[i], head=T,sep=";")
Essa operação sobe (upa) um arquivo.txt
separado por ;
e exporta ele com o mesmo nome sobrescrevendo o arquivo antigo separando o mesmo agora por \t
(tabulação) e troca o nome.
Porém sempre dá esse erro:
Error in isOpen(file, "w") : invalid connection
In addition: Warning messages:
1: In `[<-.data.frame`(`*tmp*`, i, value = list(ï..ID = 1:29998, NR_CONTA = c(10000063L, :
provided 53 variables to replace 1 variables
2: In if (file == "") file <- stdout() else if (is.character(file)) { :
the condition has length > 1 and only the first element will be used
sapply
tá assim mesmo? Porque ele não tá sendo associado a variável nenhuma, ele não tá atualizandofns
. E as ordens emwrite.table
parecem estar erradas. Primeiro vem a tabela, que seriadado1
e depois o nomefns[1]
, que é uma string.sapply
lê os ficheiros e depois nofor
volta a lê-los, porquê? Se só quer mudar o separador de colunas e o nome de uma das colunas (de"ï..ID"
para"ID"
), está a complicar imenso. E, já agora, pode explicar porquê mudar o separador de";"
para"\t"
?