如何在R中获取当前周的开始日期（星期一）和结束日期（星期日）

如何在R中获取当前周的开始日期（星期一）和结束日期（星期日）

我的工作周从周一开始，周日结束

如何从当前日期检索开始日期和结束日期

例如，当前日期为2020年7月18日。如何检索星期一日期（2020年7月18日）和星期日日期（2020年7月19日）

我的代码：

library(lubridate)
library(mailR)
library(htmlTable)
library(DBI)

todays_date <- Sys.Date()
stdt <- floor_date(todays_date, 'week') + 1
lsdt <- floor_date(todays_date, 'week') + 7

库（lubridate）
图书馆（邮递）
图书馆（htmlTable）
图书馆（DBI）
今天的日期您可以使用
lubridate
的
floor\u日期
和
floor\u日期
，将
单位
作为“周”。默认情况下，一周从
lubridate
中的周日开始，因此要将开始日期设置为周一，我们需要在
floor\u date
中添加1

library(lubridate)
todays_date <- as.Date('2020-07-18')
floor_date(todays_date, 'week') + 1
#[1] "2020-07-13"

ceiling_date(todays_date, 'week')
#[1] "2020-07-19"

库（lubridate）
todays_date当前日期为周日时会出现问题：对于OP，这是一周的最后一天，而对于lubridate，这已经是新的一周了（因此您的声明将给出下周的信息）。应该通过检查今天是否是周日来解决。