Bizday不排除周末

Question

我正在尝试通过员工的相对寿命来计算利用率。我需要指定此员工在记录时间的最早日期和最远日期之间可用的总小时数。从那里开始，我将使用它作为利用率=工作小时/总小时的除数。

在测试bizday函数时，我尝试了一个简单的示例。

bizdays::bizdays("2020-02-07","2020-02-14")
[1] 7

函数没有返回正确的工作日数有什么原因吗？我期待5个工作日，因为2/07是一个星期五，所以只有一个星期应该包括在内。

目标是在以下函数中使用bizday，该函数将通过gapply应用于分组的df。

timeentry = function(x){
  end_date = max(x$terminus)#creates an end_date variable from further end date in the group
  start_date = min(x$onset) #creates a start_date from earliest start date in the group
  start_date %>% bizdays(end_date) * 8 #subtracts dates and multiple by 8 to get work hours between two dates
}

我将以这种方式应用函数。不幸的是，它返回一个错误，表明它不能分配大小为4687 gb的向量。这是另一个问题，我希望有人能指出。

util = group %>% gapply(.,timeentry)

其中group是分组的df。

Answer 1

尝试使用create.calendar设置日历

library(bizdays)
create.calendar(name = "demo", weekdays = c("saturday", "sunday"))
bizdays::bizdays("2020-02-07","2020-02-14", cal = "demo")
[1] 5