Linguagem R:Manipulação de arquivos

Leitura de arquivo com caixa de dialogo solicitando o arquivo

df <- read.delim(file.choose())
df <- read.csv2(file.choose()) /* csv2 utiliza o delimitator ";" e separador de decimal "," - Padrão Brasil */

Leitura de arquivo texto

f <- 'd:/projeto/dados_da_pesquisa.txt'
t <- scan(f, what="character", sep=';', encoding="UTF-8")

Exportar Data.Frame para EXCEL (.CSV)

write.csv(Your DataFrame,"Path where you'd like to export the DataFrame\\File Name.csv", row.names = FALSE)

Unir arquivos .csv

# Carrea o arquivos 202007707.csv para a variavel df1 - primeira tabela
df1 <- read.csv("20200707.csv",sep=';')

# Carrea o arquivos 202007707.csv para a variavel df1 - segunda tabela
df2 <- read.csv("202007078.csv",sep=';')

# Carrea o arquivos 202007709.csv para a variavel df1 - terceira tabela
df3 <- read.csv("20200708.csv",sep=';')

# Unir todos os arqivos em um só - os dados ficaram na variável dft
dft <- rbind(df1,df2,df3)

# Pode-se unir vários arquivos realizando a leitura de vários
dft <- rbind(df1, df2, ....)

Verificando a existência de arquivos

path <- 'x/RPI0'
i = 2280
while (i <= 2583)
{

file <- paste(path,i,'.csv',sep=) print(file) if (file.exists(file)) { df <- read.csv2(file,sep=';', row.names=NULL) } i <- (i+1)

}
print("FIM")