Come creare periodicamente l'invio di testo a un "file di registro" durante la stampa dell'output normale su console?

Question

Sto creando un codice R per una simulazione Monte Carlo di uno sport professionale. Poiché le dinamiche di gioco sono molto complicate e per semplificare il processo di debug, mi piacerebbe che R inviasse una riga di testo per ogni azione che si svolge nel gioco a un "file di registro". Il file di registro sarebbe un approccio globale, commedia di descrizione del gioco di ciò che accade nella simulazione, e sarebbe simile a questa ...

• "gioco inizia"
• POSSESSO ASSEGNATO ALLA X TEAM
• LETTORE Y GETS BALL
• LETTORE Y SCORES
• fallo di LETTORE Z GUASTI
• SOSTITUZIONE GUASTI (LETTORE W < -> LETTORE Q)
• ...
• "gioco termina"

non può semplicemente utilizzare la funzione sink() perché mentre la simulazione è in esecuzione, a configurare una barra di avanzamento (con la funzione setTxtProgressBar) e punteggi in tempo reale per essere stampato sulla console. Se ho usato sink(), non ho potuto vedere nessuno degli indicatori di progresso o dei punteggi sulla console R. Ha senso ciò? In altre parole, ho bisogno di inviare periodicamente del testo a un file di registro in modo cumulativo. Ecco qualche esempio di codice per darvi qualcosa su cui lavorare ...

Grazie

for (i in 1:100) 
{**SOMEHOW NEED TO PRINT LINE "START LOOP" TO LOG FILE**; 
a <- rnorm(n = 100, mean = i, sd = 5); 
print(mean(a)); #PRINT THIS MEAN TO THE CONSOLE 
**SOMEHOW PRINT "LOOP 'i' COMPLETE" TO LOG FILE**} 

Answer 1

Vedi ?cat. È possibile aprire una connessione file al file di registro e specificare che nella chiamata cat, quando non si specifica una connessione, verrà stampato sulla console.

Come dici tu, non utilizzare sink() in quanto renderà il file di registro la connessione predefinita. Piuttosto, apri una connessione con nome con file().

> log_con <- file("test.log") 
> cat("write to log", file = log_con) 
> cat("write to console") 
write to console 

I risultati di cui sopra in un file di log con la linea "scrittura per il login" e "scrivere a consolare" stampato sulla console.

Answer 2

Per aprire il file di log in modalità "append":

log_con <- file("test.log",open="a") 

Answer 3

capito, grazie a Shujaa e BigFinger. Per riassumere, ecco come si farebbe con il mio codice di esempio:

log_con <- file("/filepath/log.txt", open="a") 

for (i in 1:100) 
{ 
cat("loop begins", file = log_con, sep="\n") 
a <- rnorm(n = 100, mean = i, sd = 5) 
print(mean(a)) 
cat("single loop completed", file = log_con, sep="\n") 
} 

close(log_con) 

Answer 4

La biblioteca log4r sembra essere più complete rispetto al fatto in casa uno: https://github.com/johnmyleswhite/log4r