Кто должен определять значение для экземпляров T / F на входе функции R

Question

Ниже я ожидаю, что функция выведет .25 для любого long = T и .5 для любого long = F. Итак, я ожидал получить вектор .25, .25, .25, .5, .25 в качестве вывода foo().

Мне интересно, как я могу добиться желаемого результата?

foo <- function(long = c(T, T, T, F, T)){

 r <- if(long)long[long] <- .25 else long[!long] <- .5
 r
 }
 ## Example of use:
foo()

Answer 1

if/else ожидает вектор длины 1 и возвращает логический vector длины 1. Мы можем использовать ifelse

foo <- function(long = c(T, T, T, F, T)){

   ifelse(long, .25, .5)

  }

foo()