R: sum over different columns (difftime)

Question

I have a dataframe with several difftimes (fake data):

library(tidyverse)
library(lubridate)

df <- data.frame(q1_begin =