r lubridate: exclude out of the office hours and weekends from the time interval calculations

Question

I would like exclude "out of the office hours" and weekends from the time interval calculations with lubridate. To be more precise, I have a dataframe with timestamps and would like to calculate the time between two events, which has to exclude out of the office hours (there is a list of office hours for each weekday) and weekends.