Раскрашиваем R в терминале: пакет colorout

Блог переехал. Актуальная версия поста находится по адресу: http://aakinshin.net/ru/blog/r/colorout/.

---

В последнее время мне часто приходится гонять R-скрипты на удалённом Linux-сервере. Большую часть работы я выполняю на домашней машине, но иногда приходится отлаживать скрипты прямо на сервере. В этом мне очень помогает пакет colorout, который умеет красиво раскрашивать R в терминале. Давайте взглянем на него чуть подробнее.

Пакета нет в CRAN, но зато он выложен на GitHub-е, так что установить последнюю версию проще всего с помощью devtools:

library(devtools)
install_github('jalvesaq/colorout')

Чтобы пакет подключался автоматически, необходимо прописать library(colorout) в .Rprofile или Rprofile.site (почитать подробнее). Если вы запускаете R из различных окружений, то сперва стоит проверить, что данная сессия запущена из терминала (в этом поможет Sys.getenv("TERM")). Давайте взглянем на то, как теперь выглядит работа с R. Для этого воспользуемся примером от автора пакета:

cat("Different colors for normal text, \"string\", dates (",
     as.character(Sys.Date()), ")\n",
     "numbers (12, -1.3), NULL, NA, NaN, Inf, TRUE and FALSE.\n", sep = "")
x <- data.frame(logic=c(T, T, F), factor=factor(c("abc", "def", "ghi")),
                string=c("ABC", "DEF", "GHI"), real=c(1.23, -4.56, 7.89),
                cien.not = c(1.234e-23, -4.56e+45, 7.89e78),
                date=as.Date(c("2012-02-21", "2013-02-12", "2014-03-04")),
                stringsAsFactors = FALSE)
rownames(x) <- 1:3
x
summary(x[, c(1, 2, 4, 6)])
# Warnings and erros are highlighted (even if not in English):
warning("This is an example of warning.")
example.of.error
# Messages sent to stderr are highlighted:
library(KernSmooth)

Если ваш терминал поддерживает 256 цветов (Sys.getenv("TERM") равно "xterm-256color", а не просто "xterm"), то вы можете тонко подстроить цветовую гамму:

# The colors are customizable:
setOutputColors()
setOutputColors256(normal = 39, number = 51, negnum = 183, date = 43,
                   string = 79, const = 75, verbose = FALSE)
x
setOutputColors256(202, 214, 209, 184, 172, 179, verbose = FALSE)
x

Если поддержки 256-и цветов нет, то выставить нужные цвета поможет обычный setOutputColors. На сегодняшний день у функций setOutputColors и setOutputColors256 имеются следующие аргументы:

  normal: Formating and color of normal text.
  number: Formating and color of numbers.
  negnum: Formating and color of negative numbers.
    date: Formating and color of dates (output in the format
          'yyyy-mm-dd').
  string: Formating and color of quoted text.
   const: Formating and color of 'TRUE', 'FALSE', 'NULL', 'NA', 'NaN'
          and 'Inf'.
stderror: Formating and color of text sent to stderr.
    warn: Formating and color of warnings.
   error: Formating and color of errors.
 verbose: Logical value indicating whether to print colored words
          showing the result of the setup.

Как и всегда, полную справку вы можете получить с помощью команд ?setOutputColors, ?setOutputColors256.

В общем, colorout — отличный штука! Всем рекомендую. А с помощью пакета txtplot можно прямо в консоли смотреть цветные графики =).

library(txtplot)
txtcurve(sin(pi*x),from=0,to=2)