Reduce function

[rknx]

Reduce(
    function(x, y) ifelse(x ==1, 1, y),
    row,
    accumulate = T
)

apply(data, 1, function(row){
    ...
})

data_accu <- do.call(rbind, ...)