<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
</head>
<body>
<p><font face="Courier New, Courier, monospace">Muito obrigado Max,
genial e muito didática a sua resposta!!!</font></p>
<p><font face="Courier New, Courier, monospace">Apenas mudei o final
para *csv para evitar a confusão que dá no *txt entre
*numeric*/*character*, sendo:</font></p>
<p><font face="Courier New, Courier, monospace">filename <-
myfile[1, 1] %>%<br>
str_extract(".*:") %>%<br>
str_remove("\\.jpg:") %>%<br>
paste0("pred_", ., ".csv")<br>
<br>
filename<br>
<br>
# salva o arquivo<br>
write.csv(x = mydataframe, file = filename, row.names = FALSE)<br>
</font></p>
<p><font face="Courier New, Courier, monospace">Achei também essa
função lag() para atrasar uma linha demais!</font></p>
<p><font face="Courier New, Courier, monospace">Alexandre</font><br>
</p>
<pre class="moz-signature" cols="72">
--</pre>
<div class="moz-cite-prefix">Em 01/04/2020 11:00,
<a class="moz-txt-link-abbreviated" href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</a> escreveu:<br>
</div>
<blockquote type="cite"
cite="mid:mailman.3.1585753201.1871.r-br@listas.c3sl.ufpr.br">
<pre class="moz-quote-pre" wrap="">Re: Criar um dataframe pela combinação de duas linhas de
informação em *txt </pre>
</blockquote>
</body>
</html>