R: Separating sections of positive values as events and calculating metrics for those events

Question

I have a dataset over a period of record of 3.5 years with data recorded every 20 minutes for 93 locations. Preview:

date_time cor_water_depth Levee.slope Le