[R-br] Converter arquivos RData em csv dentro de um loop

[Mauro Sznelwar]

Se eu quiser listar arquivos de outras extensões, como doc, ppt, ele também faz? Eu vi que o list.files() lista tudo, mas se eu quiser só algumas extensões?
  Marcos,

  Se vc tem certeza de que cada RData contém somente um data.frame, acho que isso vai funcionar:

  arquivos <- list.files()
  arquivos <- grep(".*\\.RData$", arquivos, ignore.case=T, value=T) #pega só os arquivos .RData
  require(mgcv)
  for(nomes in arquivos){

     dframe <- readRDS(nomes)
     write.csv2(dframe, file=paste(dframe, ".csv", sep=""), row.names=FALSE)
     rm(dframe)

  }




  Em 9 de abril de 2012 23:33, Marcos Silva <marcosfs2006 em gmail.com> escreveu:

    Olá Pessoal,

    Eu tenho, em um diretório, um conjunto de mais ou menos 30 arquivos RData que armazenam data frames. O que eu gostaria de fazer é escrever um scrip que lesse os nomes dos arquivos RData no referido diretorio e os exportasse no formato .csv.

    A abordagem que estou tentanto desenvolver é a seguinte:


    arquivos <- list.files()

    for(nomes in arquivos){

       dframe <- load(nomes)
       load(nomes)
       write.csv2(????, file=paste(dframe, ".csv", sep=""), row.names=FALSE)

    rm(list=ls())
    }

    O problema para o qual ainda não consegui vislumbrar uma solução é como usar o write.csv2() nesse contexto.
    Os arquivos RData tem nomes no seguinte padrão: "Emp_DETRAN_2009.2012fev.RData" e o data frame contido no arquivo tem nome "empDETRAN". Basicamente o que muda de um arquivo para o outro é o nome do do órgão.

    Possivelmente exista outra abordagem menos macarronica e mais direta ao ponto...

    .
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120411/c2f39b71/attachment.html>