طرائق S3 والبيئات والتقييم

new_lab_score <- function(value) {
  stopifnot(is.numeric(value), length(value) == 1L, is.finite(value))
  structure(list(value = value), class = "lab_score")
}
print.lab_score <- function(x, ...) {
  cat("lab_score:", x$value, "\n", sep = "")
  invisible(x)
}
x <- new_lab_score(7)
print(x)
cat("inherits=", inherits(x, "lab_score"), "\n", sep = "")

lab_score:7
inherits=TRUE

تختار print طريقة الصنف، ويفحص الباني ثابت التمثيل قبل إضافة الصفة.

state <- new.env(parent = emptyenv())
state$value <- 1
alias <- state
alias$value <- 2
x <- list(value = 1)
y <- x
y$value <- 2
cat("environment original=", state$value, "\n", sep = "")
cat("list original=", x$value, "; modified=", y$value, "\n", sep = "")

environment original=2
list original=1; modified=2

يشترك اسما البيئة في الروابط المتغيرة نفسها، بخلاف تعديل قيمة القائمة العادية في هذا المثال.