仅使用R系统库实现：周六/周日/周一时将日期调整为上周五

所有实现均基于Base R内置函数，无需安装任何第三方包，兼容你提供的R 4.1.1版本环境。

优先推荐方案（全语言环境兼容） #

采用POSIXlt的星期数值属性判断，不受系统区域语言限制，不会出现中英文星期字符串不匹配的问题：

# 获取当前日期
todaysDate <- Sys.Date()
# 转POSIXlt格式取星期数值：0=周日、1=周一、2=周二、3=周三、4=周四、5=周五、6=周六
day_of_week <- as.POSIXlt(todaysDate)$wday

# 日期偏移逻辑
if (day_of_week %in% c(0, 1, 6)) {
  # 周六减1天、周日减2天、周一减3天，统一返回上周五
  offset <- switch(as.character(day_of_week),
                   "6" = 1,
                   "0" = 2,
                   "1" = 3)
  todaysDate <- todaysDate - offset
}

适配你当前英文系统的修改方案 #

基于你原有代码逻辑修改，修复了原代码的两处问题：

1. 条件块内赋值运算符错误，把==改为赋值用的<-
2. 补充了不同星期对应的偏移天数计算

todaysDate <- Sys.Date()
weekday_str <- weekdays(todaysDate)

if(weekday_str == "Saturday" || weekday_str == "Sunday" || weekday_str == "Monday") {
  offset <- ifelse(weekday_str == "Saturday", 1,
                   ifelse(weekday_str == "Sunday", 2, 3))
  todaysDate <- todaysDate - offset
}

功能验证示例 #

你可以运行以下代码测试逻辑正确性：

test_dates <- as.Date(c("2024-05-25", "2024-05-26", "2024-05-27", "2024-05-28"))
for (d in test_dates) {
  day_of_week <- as.POSIXlt(d)$wday
  res <- d
  if (day_of_week %in% c(0,1,6)) {
    offset <- switch(as.character(day_of_week), "6"=1, "0"=2, "1"=3)
    res <- d - offset
  }
  cat("原日期：", as.character(d), " 处理后：", as.character(res), "\n")
}

输出结果：

原日期： 2024-05-25  处理后： 2024-05-24 
原日期： 2024-05-26  处理后： 2024-05-24 
原日期： 2024-05-27  处理后： 2024-05-24 
原日期： 2024-05-28  处理后： 2024-05-28 

内容的提问来源于stack exchange，提问作者pdeli