Hàm ẩn danh

Trong R, hàm (function) là một giá trị như số hoặc chuỗi. function(x) x * 2 tạo một hàm không cần đặt tên, và giá trị của biểu thức cuối cùng là giá trị trả về của hàm:

double <- function(x) x * 2
print(double(21))
print((function(x) x + 1)(9))

Đầu ra:

[1] 42
[1] 10

R 4.1 bổ sung dạng viết tắt: \(x) có nghĩa giống như function(x). Dùng dấu ngoặc nhọn khi phần thân cần nhiều dòng:

square <- \(x) x^2
label <- function(x) {
  size <- if (x > 10) "big" else "small"
  paste(x, "is", size)
}
print(square(4))
print(label(12))

Đầu ra:

[1] 16
[1] "12 is big"

Vì hàm là các giá trị, danh sách có thể chứa nhiều hàm dưới các tên riêng. ops[["inc"]] là một hàm, nên ops[["inc"]](5) gọi hàm đó:

ops <- list(inc = \(x) x + 1, neg = \(x) -x)
print(ops[["inc"]](5))
print(names(ops))

Đầu ra:

[1] 6
[1] "inc" "neg"

Hàm (function) có thể nhận nhiều đối số và đặt giá trị mặc định cho một số đối số, giống như hàm được đặt tên:

area <- \(w, h = w) w * h
print(area(3))
print(area(3, 5))

Đầu ra:

[1] 9
[1] 15