Using Partial Filling with Rollapply in R for Custom Rolling Calculations

How to Use R's rollapply Function for Calculating Cumulative Sums in Time Series Data