dplyr: if_else is greedy

Question

Я пытаюсь добавить mutate новую переменную условно на значение другой переменной с использованием if_else, но if_else настаивает на вычислении всех значений, а затем условной замене значений в конечном векторе.

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

df_foo = data_frame(
    rate = sample(c(0, 0.1), size = 100, replace = TRUE), 
    pmt = 1000, 
    nper = 10 
) 

df_foo %>% 
    mutate(
    if_else(
     rate > 0, 
     optiRum::PV(rate = rate, pmt = -pmt, nper = nper), 
     0 
    ) 
) 

Есть ли способ, чтобы только вычислить TRUE значения, когда условие TRUE?

Answer 1

Это не является проблемой для if_else, базовая версия ifelse действует одинаково. С помощью файла ifelse мы можем прочитать:

Если yes или no слишком коротки, их элементы перерабатываются. yes будет оценен тогда и только тогда, когда любой элемент test является истинным, и аналогичным образом для no.

Существует множество случаев, когда использование ifelse неприемлемо, а предупреждение об ошибках в одном из условий - одно.

Решение делать то, что вы хотите (без dplyr) является:

df_foo$x <- 0 
df_foo$x[df_foo$rate > 0] <- with(df_foo[df_foo$rate > 0, ], optiRum::PV(rate, nper, -pmt))