How to Store Data in Time Ranges Before and After a Threshold Value with R Using Tidyverse Packages