<div dir="auto">sink(). Dá uma olhada nessa função.</div><div class="gmail_extra"><br><div class="gmail_quote">Em 19 de dez de 2018 11:13 AM, "Cinara Santos por (R-br)" <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br type="attribution"><blockquote class="quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr">Olá!<div><br></div><div>Gostaria de saber da possibilidade de capturar o [console] do R de forma dinâmica, como no software STATA - tudo o que sai na tela é copiado para um arquivo de log. Se houver interrupção, o log registra até o momento da interrupção.</div><div><br></div><div>E se fosse possível habilitar isso no R, me ajudaria muito!!!</div><div><br></div><div>Digo isso porque estou usando o comando [sink()]</div><div><br></div><div>sink(file = log_file, append = TRUE, type = "output")</div><div><br></div><div>Ocorre que o código lida com dados muito volumosos, dentro de um loop (com sub-loops também). Assim, na minha inocência tentei o seguinte - são 3 loops, um dentro do outro. </div><div>Ao final do loop mais interno pus:</div><div><br></div><div>- desliga o [sink()], </div><div>- fecha o arquivo de saida (log_file - no intuito de salvar o que já tem)</div><div>- abre o arquivo de saida (log_file)</div><div>- "liga" o [sink]</div><div><br></div><div><br></div><div>--------------------------</div><div>saida <- paste(....) #monta o nome do arquivo de saida</div><div><br></div><div>log_file <- file(saida, open = "wt")<br></div><div>sink(file = log_file, append = TRUE, type = "output") # começa a "captura"<br></div><div><br></div><div>LOOP1- inicio</div><div> pegar referencia no [arquivo_a]</div><div> LOOP2- inicio</div><div> montar nome [arquivo_b]</div><div> LOOP3(varrer [arquivo_b] - particionando) - inicio</div><div> tarefa1</div><div> tarefa2</div><div> :<br></div><div> tarefa_n <br></div><div><br></div><div> sink() </div><div> close(log_file)</div><div> log_file <- file(saida, open = "at")</div><div> sink(file = log_file, append = TRUE, type = "output")</div><div><br></div><div> LOOP3(
varrer [arquivo_b] - particionando ) - fim</div><div> LOOP2 - fim <br></div><div>LOOP1- fim </div><div>-------------------------- <br></div><div><br></div><div><br></div><div>Mas parece que o arquivo continua fechando só ao final do código, e com isso, se acaba a luz no meio do caminho, ou ocorre algum outro evento.... fico na saudade...</div><div><br></div><div>Tem remédio?????</div><div><br></div><div><div><div dir="ltr" class="m_-6438860334173287334gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr">------------------------</div><div dir="ltr"><div>Cinara Santos</div><div><span style="font-size:12.8px">whatsApp </span><span style="font-size:12.8px">(32) 9.8416-0441</span></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" rel="noreferrer">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer noreferrer" 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" rel="noreferrer noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote></div><br></div>