#Caminhos dos dados<br><br>anomes<- format(Sys.time(), "%Y%m")<br>anomesdia <- format(Sys.time(), "%Y%m%d")<br>dir2 <- paste(dat.dir, anomes, "/", anomesdia, sep="")<br>dados<-dir(dir2, recursive = TRUE, pattern='\\.txt$', full.names = TRUE)<br>
n <- length(dados)<br>dados1 <- 0<br><br>#Filtrando arquivo e lendo os arquivos<br>for ( i in 1:n) {<br>arquivo<-read.table(dados[i])<br>attach(arquivo)<br>dados1 <- subset(arquivo, substr(as.numeric(V1), 1, 2) == "82" | substr(as.numeric(V1), 1, 2) == "83")<br>
}<br><br><br><br>Foram esses os comandos que eu usei, sendo que toda hora fica sobrepondo os arquivos, gostaria de saber se há a possibilidade de consertar isso poder pegar todos os arquivos desejados, pois preciso jogar tudo isso para um banco de dados.<br>
<br><br>Abraços!<br><br><div class="gmail_quote">Em 1 de abril de 2011 15:01, Victor Eduardo <span dir="ltr"><<a href="mailto:victorduca08@gmail.com">victorduca08@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Consegui aqui, mas pintou um problema, para eviar criar e-mail novamente. Usei o dir() e ele pegou todos os arquivos txt de um determinado local, sendo que usei o subset ppara extrair meus arquivos necessário, sendo que faço tudo isso dentro de um loop que criei, só que ele sobrepoe pelo ultimo arquivo, ou seja, tenho vários arquivos txt, sendo que ele lê todos, mas ele está sobrepondo todos deixando apenas o último.<br>
<br><div class="gmail_quote">Em 1 de abril de 2011 14:56, Pedro Emmanuel Alvarenga Americano do Brasil <span dir="ltr"><<a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a>></span> escreveu:<div>
<div></div><div class="h5"><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<font color="#000066"><font face="courier new,monospace">Que tal o sink?<br><br clear="all"></font></font>Abraço forte e que a força esteja com você,<br><br>Dr. Pedro Emmanuel A. A. do Brasil<br>Instituto de Pesquisa Clínica Evandro Chagas<br>
Fundação Oswaldo Cruz<br>Rio de Janeiro - Brasil<br>Av. Brasil 4365<br>Tel 55 21 3865-9648<br>email: <a href="mailto:pedro.brasil@ipec.fiocruz.br" target="_blank">pedro.brasil@ipec.fiocruz.br</a><br>email: <a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a><br>
<br>---Apoio aos softwares livres<br><a href="http://www.zotero.org" target="_blank">www.zotero.org</a> - gerenciamento de referências bibliográficas. <br><a href="http://www.broffice.org" target="_blank">www.broffice.org</a> ou <a href="http://www.openoffice.org" target="_blank">www.openoffice.org</a> - textos, planilhas ou apresentações.<br>
<a href="http://www.epidata.dk" target="_blank">www.epidata.dk</a> - entrada de dados.<br><a href="http://www.r-project.org" target="_blank">www.r-project.org</a> - análise de dados.<br><a href="http://www.ubuntu.com" target="_blank">www.ubuntu.com</a> - sistema operacional<br>
<br><br><div class="gmail_quote">Em 1 de abril de 2011 14:52, Henrique Dallazuanna <span dir="ltr"><<a href="mailto:wwwhsd@gmail.com" target="_blank">wwwhsd@gmail.com</a>></span> escreveu:<div><div></div><div>
<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Você quer escrever estes dados em um arquivo?<br>
<br>
Se for veja o comando write.table<br>
<br>
<br>
2011/4/1 Victor Eduardo <<a href="mailto:victorduca08@gmail.com" target="_blank">victorduca08@gmail.com</a>>:<br>
<div><div></div><div>> Galera, além do Write, existe algum outro arquivo que faça eu criar um<br>
> arquivo em txt?<br>
><br>
><br>
> Quero armazenar as linhas de uns arquivos que selecionei, por exemplo, tem<br>
> algumas das delas aqui:<br>
><br>
> V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15<br>
> 9 8200 2010 5 22 16 0 -49.7 -29.4 4 -9999 1019 1019 106 1.6 294.6<br>
> 15 8203 2010 5 22 16 0 -52.7 -31.4 464 -9999 967 1021 60 4.3 291.9<br>
> 24 8238 2010 5 22 16 0 -54.5 -25.6 231 -9999 988 1014 68 2.2 296.8<br>
> 26 8240 2010 5 22 16 0 -53.6 -26.3 810 -9999 924 1016 63 5.0 293.2<br>
> 64 8209 2010 5 22 16 0 -49.3 -26.9 86 -9999 1009 1019 176 1.3 293.8<br>
> 68 8204 2010 5 22 16 0 -53.5 -30.5 450 -9999 970 1022 67 7.5 293.4<br>
><br>
><br>
> Abraços!<br>
><br>
</div></div>> _______________________________________________<br>
> R-br mailing list<br>
> <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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>
><br>
><br>
<font color="#888888"><br>
<br>
<br>
--<br>
Henrique Dallazuanna<br>
Curitiba-Paraná-Brasil<br>
25° 25' 40" S 49° 16' 22" O<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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>
</font></blockquote></div></div></div><br>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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>
<br></blockquote></div></div></div><br>
</blockquote></div><br>