条件在 while 循环中的长度大于 1

Question

我正在编写一个函数，以便在给定月份和年份的情况下返回该月的最后一个工作日。

它使用来自 bizdays 包的 is.bizday。如果给定日期是工作日，is.bizday 返回 TRUE，否则返回 FALSE。

我的功能：

library(bizdays)

UltDiaLabor <- function(mesanio) {

  ult<-as.Date(as.yearmon(mesanio, "%m%Y"), frac = 1)

  while(!is.bizday(ult)) {
    ult=ult-1 
    }
  return(ult)

}

它从 as.yearmon 提供的月份的最后一天开始，格式为“mmYYYY”并测试 bizday。一次减去一天，直到 is.bizday 返回 TRUE，因此条件 !is.bizday 变为 FALSE 并中断。 （应该）

我得到“条件在 while 循环中的长度大于 1”，但不知道问题出在哪里。

提前致谢

Answer 1

我认为您正在尝试将函数与日期向量一起使用，但是无法在 while 循环中使用多个值来评估逻辑运算符。我建议你改用sapply()。

date <- "122001"
dates <- c("122001", "091999")

UltDiaLabor(date) # works
UltDiaLabor(dates) # does not work
sapply(dates, UltDiaLabor) # works