resetting cumsum if value goes to negative in r

Question

ve <- c(17, -9, 9, -17, 17, -17, 11, -9, 16, -18, 17, 0, 0, -18, 17, 0, 0, -17, 14, -14, 17, -2, 0, -15, 9, -9, 17, -16, 16, -17, 17, -17, 17, -17, 17, -17, 17, -         


        

Answer 1

> df$calc=ifelse(cumsum(df$ve)<0,0,cumsum(df$ve))