Shorthand notation to create functions in r

numbers <- c(1, 2, 3, 4, 5)

vapply(numbers, function(x) x * 2, numeric(1))

[1]  2  4  6  8 10

Create an anonymous function by shorthand annotation

vapply(numbers, \(x) x * 2, numeric(1))

[1]  2  4  6  8 10

Create a function by shorthand annotation

times_two <- \(x) x * 2
vapply(numbers, times_two, numeric(1))

[1]  2  4  6  8 10