cummax with reset in r

Question

I have 3-dim array for maximum temperature (if temperature >25, otherwise 0)

 heat_values[580,842,]
  [1]  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0