How to identify and count phases in a time series and assign them to rows?

Question

I am monitoring a program with R that is sometimes idle and sometimes performs tasks. My goal is to identify and distinguish runtimes of the program. The data should look li