Cummulative sum with a threshold window in R data.table

Question

I want to calculate the rolling sum of n rows in my dataset where the window size \'n\' depends on the sum itself. For example, I want to slide the window as soon as the rol