R apply函数 - 获取错误“换行时出错：错误登录'by'参数”

Question

我想找到R中两个日期之间的工作日数。我正在使用以下代码

test_weekday <- function(a,b) sum(!weekdays(seq(as.Date(a), as.Date(b), "days")) %in% c("Saturday", "Sunday"))-1
apply(b1[,c(48,51)], 1, function(x) test_weekday(x[1],x[2]))

获取错误 -

  

换行时出错：'by'参数错误签到

追溯显示了这个 -

  

8 seq.Date（as.Date（a），as.Date（b），“days”）
7 seq（as.Date（a），   as.Date（b），“days”）
6个工作日（seq（as.Date（a），as.Date（b），   “天”））5匹配（x，表，nomatch = 0L）
4   平日（seq（as.Date（a），as.Date（b），“days”））％c％（“星期六”，       “星期日”）3 3 test_weekday（x [1]，x [2]）
2 FUN（newX [，i]，...）
1适用（b1 [，c（ 48,51）]，1，函数（x）test_weekday（x [1]，   X [2]））

请帮助

如果有更好的方法，请告诉我。谢谢！