البرامج والكائنات وحدود الجلسة

minutes <- c(10, 20, 30)
mean_minutes <- mean(minutes)
cat("count=", length(minutes), "; mean=", mean_minutes, " minutes\n", sep = "")
stopifnot(identical(minutes, c(10, 20, 30)))

count=3; mean=20 minutes

ينشئ الإسناد كائنات مسماة، ويعيد mean نتيجة جديدة، ويفحص التحقق ثبات المتجه. اشتُق الخرج ولم يُنفذ.

summarize_minutes <- function(values) {
  stopifnot(is.numeric(values), length(values) > 0L, all(is.finite(values)))
  c(count = length(values), mean = mean(values))
}
result <- summarize_minutes(c(4, 8, 12))
cat("count=", result[["count"]], "; mean=", result[["mean"]], "\n", sep = "")
cat("function=", is.function(summarize_minutes), "\n", sep = "")

count=3; mean=8
function=TRUE

تعتمد النتيجة على وسيط صريح، ويمنع الاستخراج بالاسم الاعتماد على تنسيق طباعة المتجه. لم تُنفذ R.