Функция switch()

switch(x, name = value, ...) сравнивает текст x с именами и возвращает значение того, которое совпало. Она заменяет длинную цепочку сравнений else if с одной и той же переменной:

size <- "m"
price <- switch(size, s = 2.5, m = 3, l = 3.5)
print(price)

Результат:

[1] 3

Последнее значение без имени является значением по умолчанию и используется, когда ничего не совпадает. Без значения по умолчанию несоответствующий switch() незаметно возвращает NULL:

day <- "fri"
print(switch(day, sat = "rest", sun = "rest", "work"))
print(is.null(switch("x", a = 1)))

Вывод:

[1] "work"
[1] TRUE

Пустое значение переходит к следующему, поэтому несколько имён могут использовать один результат:

kind <- function(day) switch(day, sat = , sun = "weekend", "weekday")
print(kind("sun"))
print(kind("tue"))

Вывод:

[1] "weekend"
[1] "weekday"

Значениями могут быть целые блоки кода в фигурных скобках, а результатом является последнее выражение выполняемого блока:

area <- function(shape, a, b = a) {
  switch(shape,
    square = a^2,
    rect = a * b,
    circle = {
      r <- a / 2
      round(pi * r^2, 2)
    },
    NA)
}
print(area("rect", 3, 4))
print(area("circle", 10))

Вывод:

[1] 12
[1] 78.54