Marcos,<br><br>Se vc tem certeza de que cada RData contém somente um data.frame, acho que isso vai funcionar:<br><br>arquivos <- list.files()<br>arquivos <- grep(".*\\.RData$", arquivos, ignore.case=T, value=T) #pega só os arquivos .RData<br>
require(mgcv)<br>for(nomes in arquivos){<br><br>   dframe <- readRDS(nomes)<br>   write.csv2(dframe, file=paste(dframe, ".csv", sep=""), row.names=FALSE)<br>   rm(dframe)<br><br>}<br><br><br><br><div class="gmail_quote">
Em 9 de abril de 2012 23:33, Marcos Silva <span dir="ltr"><<a href="mailto:marcosfs2006@gmail.com">marcosfs2006@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Olá Pessoal,<br><br>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.<br>


<br>A abordagem que estou tentanto desenvolver é a seguinte:<br><br><br>arquivos <- list.files()<br><br>for(nomes in arquivos){<br><br>   dframe <- load(nomes)<br>  
load(nomes)<br>   write.csv2(????, file=paste(dframe, ".csv", sep=""), row.names=FALSE)<br><br>rm(list=ls())<br>}<br><br>O problema para o qual ainda não consegui vislumbrar uma solução é como usar o write.csv2() nesse contexto.<br>

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.<br>

<br>Possivelmente exista outra abordagem menos macarronica e mais direta ao ponto...<br><br>Abs.<span class="HOEnZb"><font color="#888888"><br><br>  <br clear="all">
<br>-- <br>Marcos F. Silva<br><a href="http://sites.google.com/site/marcosfs2006" target="_blank">http://sites.google.com/site/marcosfs2006</a><br>
</font></span><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br>