Создать файл журнала предупреждений при запуске скрипта R

Question

Я хотел бы создать журнал предупреждений / ошибок для сценария R.
Пожалуйста, смотрите ниже пример:

setwd(tempdir())
zz <- file("all.Rout", open="wt")
    sink(zz, type="message")
    for (i in 1:30){
           log(i-50)
         }
    sink(type="message")
    close(zz)

Я ожидал, что это зацепит все предупреждения:
Предупреждающие сообщения:
1: В журнале (i - 50): произведено NaN
2: В журнале (i - 50): произведено NaN
3: В журнале (i - 50): произведено NaN

Однако для цикла i в 1:30 в файле all.rout есть только одна строка:
Было 30 предупреждений (используйте warnings () чтобы увидеть их)

Есть идеи как это исправить?

Я создал код, основанный на другой теме:

Вывести журнал ошибок / предупреждений (txt файл) при запуске R-скрипта из командной строки

Answer 1

Пытаться options(warn=1)

От ?options:

'warn': sets the handling of warning messages.  If 'warn' is
      negative all warnings are ignored.  If 'warn' is zero (the
      default) warnings are stored until the top-level function
      returns.  If 10 or fewer warnings were signalled they will be
      printed otherwise a message saying how many were signalled.
      An object called 'last.warning' is created and can be printed
      through the function 'warnings'.  If 'warn' is one, warnings
      are printed as they occur.  If 'warn' is two or larger all
      warnings are turned into errors.