<div dir="ltr">como seu exemplo nao e' reprodutivel e eu nao entendi o que e' a pergunta (ha' alguma?), eu bolei a seguinte solucao para a hipotese da sua pergunta ser: "como junto N arquivos e os transponho, gravando o obj combinado num unico arquivo de saida?".<div>
<br></div><div>x = do.call(cbind, lapply(fileNames, read.table, header=TRUE))</div><div>names(x) = fileNames</div><div>write.table(t(x), file='saida.mod', col.names=FALSE, row.names=TRUE, quote=FALSE)</div><div><br>
</div><div>b</div><div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 8 de julho de 2014 14:17, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Boa tarde pessoal,<br>
<br>
Tenho inúmeros arquivos dpt que podem ser lidos com txt e gostaria de fazer o seguinte, ler os dados que são apenas uma coluna em cada arquivo e transpor eles, em seguida, pegar o nome do arquivo e a cada _ criar uma nova coluna, sendo um arquivo:<br>
<br>
Cupim%20Syntermes_COLONIA%201_<u></u>operario_1_c1_140616.dpt<br>
<br>
Gostaria que a última coluna fosse os dados transpostos no arquivo e as colunas fosse: Cupim%20Syntermes, COLONIA%20, operario, 1, c1 e 140616.<br>
<br>
Segue CRM com três arquivos:<br>
<br>
<br>
#-----------------------------<u></u>------------------------------<u></u>--------------------<br>
### Download a partir de uma lista de links com os arquivos<br>
#-----------------------------<u></u>------------------------------<u></u>--------------------<br>
#<br>
### Obtenção de links<br>
links <- c(<br>
"<a href="https://www.dropbox.com/s/l5ofrqw01tnfmmv/Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.dpt" target="_blank">https://www.dropbox.com/s/<u></u>l5ofrqw01tnfmmv/Cupim%<u></u>20Syntermes_COLONIA%201_<u></u>operario_1_c1_140616.dpt</a>", <br>
"<a href="https://www.dropbox.com/s/tkxkov16z813oc6/Cupim%20Syntermes_COLONIA%201_operario_2_c1_140616.dpt" target="_blank">https://www.dropbox.com/s/<u></u>tkxkov16z813oc6/Cupim%<u></u>20Syntermes_COLONIA%201_<u></u>operario_2_c1_140616.dpt</a>", <br>
"<a href="https://www.dropbox.com/s/hjcmw9qutwwolo0/Cupim%20Syntermes_COLONIA%201_operario_3_c1_140616.dpt" target="_blank">https://www.dropbox.com/s/<u></u>hjcmw9qutwwolo0/Cupim%<u></u>20Syntermes_COLONIA%201_<u></u>operario_3_c1_140616.dpt</a>")<br>
<br>
tokens <- gsub("^.*/s/","",dirname(<u></u>links))<br>
fileNames <- basename(links)<br>
newLinks <- file.path("<a href="http://dl.dropbox.com/s" target="_blank">http://dl.dropbox.<u></u>com/s</a>", tokens, fileNames); newLinks<br>
<br>
for (a in newLinks) {<br>
tryCatch(download.file(a, dest=basename(a), mode='wb'),<br>
error=function(...) print("Falha no download!"))}<br>
<br>
### Verificando arquivos baixados corretamente<br>
##############################<u></u>##############################<u></u>##################<br>
fileInfo <- <a href="http://file.info" target="_blank">file.info</a>(fileNames); fileInfo ### observe o segundo arquivo<br>
files.OK <- fileNames[fileInfo$size>0 & !<a href="http://is.na" target="_blank">is.na</a>(fileInfo$size)]; files.OK<br>
<br>
### Operando arquivos baixados corretamente<br>
##############################<u></u>##############################<u></u>##################<br>
for (b in files.OK) {<br>
t <- strsplit(b,"_|\\.")[[1]][2]<br>
XYZ <- data.frame(rep(t),t(b[b[,1],])<u></u>)<br>
outName <- paste0('XYZ-', t, '.txt')<br>
write.table(XYZ, file ="termiteNIR.mod", row.names=F,append=T)<br>
message(noquote(paste(outName, "salvo em", getwd())))<br>
}<br>
#</code><br>
<br>
<br>
<br>
-- <br>
==============================<u></u>==============================<u></u>==========<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT CEP: 78.200-000<br>
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM) <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)<br>
<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@<u></u>yahoo.com.br</a><br>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<u></u>br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/<u></u>1360403201088680</a><br>
==============================<u></u>==============================<u></u>==========<br>
<br>
______________________________<u></u>_________________<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/<u></u>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-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div dir="ltr"><a href="http://about.me/benilton" style="margin:0px;padding:0px;border:0px;outline:0px;font-size:14px;font-family:proxima-nova-1,proxima-nova-2,Tahoma,Helvetica,Verdana,sans-serif;vertical-align:baseline;color:rgb(43,130,173);text-decoration:none;line-height:18.200000762939453px" target="_blank"><table border="0" cellpadding="0" cellspacing="0" style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;border-spacing:0px">
<tbody style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline"><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<td colspan="3" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;height:30px"> </td></tr><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<td align="left" valign="top" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:top;line-height:1"><div style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<img src="http://d13pix9kaak6wt.cloudfront.net/signature/me-badge.png" alt="Benilton Carvalho on about.me" width="48" height="48" style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;display:block"></div>
</td><td style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;width:8px"> </td><td align="left" valign="middle" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:middle;height:48px;line-height:0.9">
<div style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:bold;font-style:inherit;font-size:18px;font-family:proxima-nova-1,Proxima-Nova,Helvetica,Arial,sans-serif;vertical-align:baseline;line-height:1;color:rgb(51,51,51)">
Benilton Carvalho</div><div style="margin:2px 0px 0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-size:12px;font-family:proxima-nova-1,Proxima-Nova,Helvetica,Arial,sans-serif;vertical-align:baseline">
about.me/benilton</div></td></tr><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline"><td colspan="3" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;height:20px">
</td></tr></tbody></table></a></div>
</div>