R - захватить вывод из system () в текстовый файл. - PullRequest
0 голосов
/ 16 ноября 2018

Я хочу захватить весь вывод с консоли R.Я пытался использовать функцию приемника () и txtStart () из библиотеки 'TeachingDemos'.Тем не менее, ни один из них не может перехватить выходные данные из команды system ().

Например, если я запускаю следующие коды:

zz <- file("log.txt")
sink(zz)
sink(zz, type = "message")
print('first layer message!!!!')
system("Rscript test1.R") #test1.R is a R script that print 'hello world'
sink(type = "message")
sink()

, я вижу сообщение «Привет, мир» вКонсоль RТем не менее, я не могу записать его в log.txt.Есть ли способ решить эту проблему?

Спасибо

1 Ответ

0 голосов
/ 16 ноября 2018
system("Rscript test1.R", intern = TRUE)
...