Separate overlaps in start and end range into own row of data frame

Question

I have this data:

start_data <- data.frame(stringsAsFactors=FALSE,
                          Person = c(1, 1, 1, 1),
                          Event = c(1,