Bind_Diogo

#Deve-se digitar o endereço da pasta que será criado os arquivos
setwd("C:/R/data/testeR/")
getwd()
nomes <- c("Diogo", "Rodrigo", "Isabel", "Marcelo","Sarah")
idades <- c(40, 42, 26, 32, 28)
tabela1 <- data.frame(nome = nomes, idade = idades)
write.csv(tabela1, "arq1.csv", row.names = FALSE)

nomes <- c("Antônio", "Letícia", "Cláudio", "Ana Paula","Luiza")
idades <- c(50, 26, 40, 25, 32)

tabela2 <- data.frame(nome = nomes, idade = idades)
write.csv(tabela2, " arq2.csv", row.names = FALSE)

nomes <- c("Maria Clara", "Ana Maria", "Bianca", "Lidiane","Anderson")
idades <- c(32, 32, 30, 34, 29)

tabela3 <- data.frame(nome = nomes, idade = idades)
write.csv(tabela3, " arq3.csv", row.names = FALSE)

lista = list.files()

#O comando criou esses arquivos csv de exemplo, onde eles salvam no diretório
#de trabalho "testeR". Eu reúno esses arquivos por meio dessa função
#(usei de apoio o dplyr):


#lista <- list.files()
#################################################################
###O regex "arq[13].csv$" seleciona texto que inicia com "arq"###
###seguidos do número 1 ou 3, que terminal com .csv.          ###
#################################################################

lista = grep("arq[13].csv$", list.files() , value = TRUE)

arquivos <- lapply(lista, function(x)

read.csv2(x, header=TRUE, sep=";"))
dados <- do.call("rbind", arquivos)
dados
#Se eu aplicar essa função, ela vai reunir todos os arquivos (arq1.arq2 e arq3).