ifelse() öğesine benzer bir yapı var mı, sadece ilk olanı değil tüm öğeleri döndürüyor?

Question

Aşağıdaki örnekte, i.want.them.all, 5'ten 14'e kadar 10 sayıyı nasıl alabilir?

control.me <- 0 # or 1 
a.lot.of.elements <- c(5:14) 
i.want.them.all <- ifelse(control.me == 1, a.lot.of.elements, a.lot.of.elements - 10) 
print(i.want.them.all) 
[1] 5 

Böyle çalışan bir yapı var mı? :

a.lot.of.elements <- c(5:14) 
i.want.them.now <- magic.construct(control.me == 1, a.lot.of.elements, a.lot.of.elements - 10) 
print(i.want.them.now) 
[1] 5 6 7 8 9 10 11 12 13 14 

Değilse, ne yapmak istediğimi gerçekleştirebilirim?

Answer 1

Belki sadece test seq_along herhangi bir pozitif tam sayı her zaman TRUE olarak değerlendirecek tarihi:

> i.want.them.now <- ifelse(seq_along(a.lot.of.elements), a.lot.of.elements, character()) 
> i.want.them.now 
[1] 5 6 7 8 9 10 11 12 13 14