Мне нравится читать белые на черном. Таким образом, в RI будет что-то делать:
par (bg = "black")
par (fg = "ivory1")
Я бы хотел, чтобы эти параметры были установлены по умолчанию. Однако не просто писать эти строки в .Rprofile
потому что, насколько я понимаю, в момент его выполнения графическое устройство еще не инициализировано. Скорее, как было предложено в другом ответе, необходимо повторно назначить опцию options()$device
чтобы включить необходимую настройку параметра. У меня не было успеха в этом.
Вот что я пробовал:
~/.Rprofile
f_device <- options()$device
blackdevice <- function (...) {
f_device(...)
par (bg = "black")
par (fg = "ivory1")
}
options (device = blackdevice)
Идея здесь заключается в том, чтобы сохранить исходную функцию device
в другую переменную, а затем вызвать ее из моей новой функции device
. Я получаю:
Error in f_device(...) : could not find function "f_device"
- В то время я запускаю plot (something)
.
Еще одна идея, которую я имел, - это так:
~/.Rprofile
.First <- function () {
options(f_device = options()$device)
blackdevice <- function (...) {
options()$f_device(...)
par (bg = "black")
par (fg = "ivory1")
}
options (device = blackdevice)
}
- Назначение оригинального device
в другое место в options
. Но это приводит к:
Error in (function (...) : attempt to apply non-function
У меня нет идей. Можете ли вы помочь мне понять это?