R - 查找最近的工作日（捷克）

以下是一个使用R语言的代码示例，用于查找最近的工作日（捷克）：

library(lubridate)

# 定义捷克的节假日列表
holidays <- c("2022-01-01", "2022-04-15", "2022-04-18", "2022-05-01", "2022-05-08", 
              "2022-07-05", "2022-07-06", "2022-09-28", "2022-10-28", "2022-11-17", 
              "2022-12-24", "2022-12-25", "2022-12-26")

# 定义函数，查找最近的工作日
find_nearest_workday <- function(date) {
  date <- as.Date(date)
  
  # 如果输入日期是工作日，则直接返回
  if (weekdays(date) %in% c("星期一", "星期二", "星期三", "星期四", "星期五")) {
    return(date)
  }
  
  # 获取输入日期之前的日期
  previous_dates <- seq(date, by = "-1 day", length = 7)
  
  # 查找最近的工作日
  nearest_workday <- NA
  for (previous_date in previous_dates) {
    if (weekdays(previous_date) %in% c("星期一", "星期二", "星期三", "星期四", "星期五") &&
        !is.element(previous_date, holidays)) {
      nearest_workday <- previous_date
      break
    }
  }
  
  return(nearest_workday)
}

# 测试函数
date <- "2022-01-01"
nearest_workday <- find_nearest_workday(date)
print(nearest_workday)

这个代码示例中，我们首先加载了lubridate库，它提供了很多处理日期和时间的函数。然后定义了一个包含捷克节假日的列表。接下来，我们定义了一个find_nearest_workday函数，用于查找最近的工作日。该函数首先检查输入日期是否是工作日，如果是则直接返回该日期。否则，它会向前查找最近的工作日，直到找到一个不是节假日的工作日为止。最后，我们使用date为"2022-01-01"进行测试，并打印出最近的工作日。

请注意，这个代码示例中的日期格式为"YYYY-MM-DD"，如果你使用的是其他日期格式，可能需要进行相应的调整。