сохранить консольный вывод каждого запуска цикла for в отдельных файлах

Question

Я хочу сохранить вывод консоли каждого цикла цикла for в отдельном текстовом файле. Я делаю следующее.

for(i in 1:x) 
{ 
    sink(paste0("file", i, ".txt")) 

    ## do something 

} 

Но это через некоторое время я получаю сообщение об ошибке

Error in sink() : sink stack is full 

Что является наиболее эффективным способом сделать это?

Answer 1

вы должны закрыть подключение к файлу на sink(), так:

for(i in 1:x) { 
    sink(paste0("file", i, ".txt")) 
    ## do something 
    sink() 
}