8. Настройка окружения

Пользователи могут настроить свое окружение несколькими различными способами. существует системный файл, и у каждого каталога может быть свой собственный специальный файл инициализации. Наконец, можно использовать специальные функции .Firstи.Last.

Расположение системного файла инициализации берется из значения переменной окружения R_PROFILE. Если эта переменная сброшена, то используется файл ‘Rprofile.site’в подкаталоге'etc' домашней директорииR. Этот файл должен содержать команды, которые необходимо выполнять каждый раз при запуске R в Вашей системе. Второй, персональный файл профиля с именем‘.Rprofile,может быть помещен в любой каталог. Если R вызван в этом каталоге, то файл будет считан из него. Этот файл дает отдельный пользовательский контроль над рабочей областью и учитывает различные процедуры запуска в различных рабочих каталогах. Если файл‘.Rprofile’не найден в каталоге запуска, то R ищет файл‘.Rprofile’в корневом каталоге пользователя и использует его (если он существует). Если установлена переменная средыR_PROFILE_USER, то файл, на который она указывает, используется вместо файлов‘.Rprofile’.

У любой функции с именем .First() в любом из этих двух файлов профиля, либо в образе‘.RData’ имеется особый статус. Она автоматически выполняется в начале сеанса R и может использоваться для инициализации среды. Например, определение в примере ниже изменяет приглашение системы на$ и устанавливает разные другие полезные вещи, которые затем могут считаться само собой разумеющимся в остальной части сеанса.

Таким образом, последовательность, в которой выполняются файлы, это ‘Rprofile.site’,‘Rprofile’,‘.RData’, а затем.First().Определение в последующих файлах замаскирует определения в более ранних файлах.

> .First <- function() { options(prompt="$ ", continue="+\t") # $ как приглашение

options(digits=5, length=999) # формат чисел и область печати

x11() # графический драйвер par(pch = "+") # plotting character source(file.path(Sys.getenv("HOME"), "R", "mystuff.R "))

# собственные функции

library(MASS) # присоединить пакет

}

Аналогично, если определена функция .Last(), то она (обычно) выполняется в самом конце сеанса. Пример дан ниже.

> .Last <- function() {

graphics.off() # небольшая мера безопасности. cat(paste(date(),"\nAdios\n")) # Время обеда?

}

9. Классы, универсальные функции и объектно-ориентированное программирование

Класс объекта определяет, как он будет обработан универсальнымифункциями. Наоборот, универсальная функция выполняет действия и обработку своих аргументов в зависимости отконкретного класса самого аргумента. Если у аргумента отсутствует атрибут класса, или он имеет класс, не удовлетворяющий формату общей функции, всегда предусмотрено действие по умолчанию.

Поясним это примером. Механизм класса предлагает пользователю средство по проектированию и написанию универсальных функций для определенных целей. Среди ряда универсальных функций имеется plot()для вывода на экран графических объектов,summary() для суммирования анализов различных типов, иanova()для сравнения статистических моделей.

Количество универсальных функций, которые могут обработать класс определенным образом, может быть довольно большим. Например, функции, которые могут быть применены к некоторым объектам класса "data.frame",включают:

[ [[<- any as.matrix

[<- mean plot summary

Текущий полный список может быть получен использованием функции methods():

> methods(class="data.frame")

Наоборот, число классов, обрабатываемых универсальной функцией, также может быть довольно большим. Например, у функции plot()есть метод по умолчанию и разновидности для объектов классов"data.frame", “density", "factor" и многое другое. Полный список может быть получен снова при использовании функцииmethod():> methods(plot)

Для многих универсальных функций тело функции довольно короткое, например: > coef

function (object, ...) UseMethod("coef")

Присутствие UseMethodуказывает, что это универсальная функция. Чтобы увидеть, какой метод доступен, следует использоватьmethod():

> methods(coef)

[1] coef.aov* coef.Arima* coef.default* coef.listof*

[5] coef.nls* coef.summary.nls*

Non-visible functions are asterisked

В этом примере существует шесть методов, ни один из них нельзя увидеть, набрав его имя. Можно прочесть их, введя:

> getAnywhere("coef.aov")

A single object matching ’coef.aov’ was found

It was found in the following places registered S3 method for coef from namespace stats namespace:stats

with value

function (object, ...)

{ z <- object$coef z[!is.na(z)]

}

> getS3method("coef", "aov")

function (object, ...)

{ z <- object$coef z[!is.na(z)] }

Читатель отсылается к «Определению языка R» для более полного обсуждения этого механизма.