如何计算两个日期之间的工作时间

Question

如何使用R计算两个日期之间的工作时间

示例：

Start_DateTime = as.POSIXct("2018-05-07 18:17:50") 
End_DateTime =  as.POSIXct("2018-07-25 15:51:47")
Working_Hours = c("09:00:00","16:00:00")  

我要在此计算Start和End Time之间的工作时间 在这种情况下，Start_DateTime至End_DateTime之间的工作时间 是13小时51分钟47秒

有什么方法可以使用R计算多个这样的值吗？