Group rows of values above and below specific threshold in R

Question

I have a data frame of furnace temperature logged over time. I would like to determine when the temperature begins increasing (furnace turns on) and when temperature starts decr