Перенаправить все выходные данные графика в определенный файл

Я хочу автоматически перенаправить все графики в файл (причина: см. ниже). Есть ли не-хакерский способ сделать это?

Не имея этого, я на самом деле не боюсь переопределять встроенные функции, я это в отчаянии. Самый простой способ, который я могу придумать, - это подключиться к основной функции создания окна графика и вызвать pdf(…), а затем подключиться к функции завершения графика и вызвать там dev.off().

Но что это за функции? С помощью отладки я предварительно определил dev.hold и dev.flush, но действительно ли это верно для всех? Могу ли я подключиться к этим функциям? Я не могу переопределить их с помощью R.utils’ reassignInNamespace, потому что они заблокированы, и простое помещение одноименных функций в глобальное пространство имен не работает (их игнорирует plot).

Итак, зачем мне делать что-то настолько ужасное?

Поскольку я работаю на удаленном сервере, и, несмотря на все мои попытки и длительные сеансы отладки с поддержкой наших систем, я не могу заставить пересылку X11 работать надежно. Отсутствие возможности предварительного просмотра сюжета делает мой рабочий процесс ужасно неэффективным. Я отказался от попыток заставить X11 работать, поэтому теперь я создаю PDF-файлы в своей папке public_html и просто обновляю браузер.

Это работает довольно хорошо, за исключением того, что очень раздражает и требует много времени, чтобы всегда окружать вызовы функций построения графика pdf(…) … dev.off(), особенно в интерактивных сеансах, когда вы хотите быстро создать график во время встречи с соавторами. На самом деле, это очень раздражает, и у них (по понятным причинам) не хватает на это терпения.

Сейчас я помогаю себе со следующим определением функции:

preview <- function (.expr, ...) {
    on.exit(dev.off())
    pdf(PREVIEW_FILE_NAME, ...)
    eval(substitute(.expr))
}

Который используется так:

preview(plot(1:100, rnorm(100) * 1:100))

Это работает - хорошо. Но этот рабочий процесс является настоящим узким местом на собраниях, и я хотел бы избавиться от вызова preview, чтобы максимально упростить его.

Есть шанс вообще?