How to Apply Rollmean Function with Custom Fill Value in R while Preserving Single Observation Values

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