[R-br] Carregar muitos arquivos txt

[Eder David Borges da Silva]

Bom dia pessoal, venho mais uma vez pedir ajuda de vocês,
O problema é o seguinte, tenho 7 pastas(Cenários), dentro dos mesmo
tenho 949 arquivos TXT (1.5 Mb) cada, preciso carregar estes 7*949
arquivos e guardar em um array, tenho que carregar tudo pois tudo isso
será plotado.
meu código é o seguinte:

cenarios <- c(1:7)
con <- 1
for (i in cenarios){
 setwd(paste('C:\\Users\\l01199\\Desktop\\Modelo\\Resultados\\Modelo_Cenario',i,'_Q1300',sep=''))
 files  <- sort(list.files(pattern = "m000.TXT"))[1:50]
 tempo <- as.numeric(gsub("m000.TXT","",gsub("CON", "", files)))
 dim.a <- c(dim(read.table(files[1],head=T)),length(tempo))
 if(con==1){
   dados <- array(NA,c(length(cenarios),dim.a))
   nomes.col <- names(read.table(files[1],head=T))
 }
 con1 <- 1
 for (j in files){
   dados[con,,,con1]  <- as.matrix(read.table(j,head=TRUE))
   con1 <- con1+1
 }
 print(con)
 con <- con+1
}

tenho 4 gb de memoria na maquina, porem quando crio o objeto dados que
é um array de tamanho c(length(cenarios),dim.a)
[1]     7 11069    11   949
Não tenho memoria para tudo isso, alguém tem uma sugestão para guardar
isso, dei uma olhada no pacote SOAR, mas como ele guarda e depois
tenho que acessar novamente não sei se é a melhor saída(Posso estar
equivocado em minha interpretação).
Alguém possui um dica para contornar este problema.
Att