Replace with 0 the first calculation in mutate and rollapply in R

i have a data frame in R called Data.

matrix with multiple sliding windows, an effective alternative zoo::rollapplyr()

I’m looking for an efficient solution (preferably C++) to replace this code: