Ответ Андри хорош, хотя иногда используется суперский монитор, а 9999 недостаточно. ; -)
Вот моя функция для установки ширины дисплея:
setWidth <- function (width = NULL)
{
if (is.null(width)) {
columns <- as.numeric(Sys.getenv("COLUMNS"))
if (!is.na(columns)) {
options(width = columns)
}
else {
options(width = 100)
}
}
else {
options(width = width)
}
}
Это уже решалось ранее.
Итак, чтобы улучшить только изменение ширины, я рекомендую еще один прием: измените количество цифр, используемых в числовом выводе - установите options(digits = ...)
на меньшее значение. См. ?options
для получения дополнительной информации.