根据R中的行索引计算滚动和

I am trying to calculate a grouped rolling sum based on a window size k but, in the event that the within group row index (n) is less than k, I want to calculate the rolling sum using the condition k=min(n,k). I am trying to calculate a grouped rolling sum