<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="gmail_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>