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

Question

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

我的工作周从星期一开始，在星期日结束。

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

Eg. Curent date is 18-07-2020. How to retrieve Monday Date ( 18-07-2020) and Sunday Date (19-07-2020)

我的代码：

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

如果我在星期日执行上面的代码，它将持续到下周。通过将周一至周日视为工作日，可以使代码也可以在周日运行的任何解决方法。

Answer 1

您可以将lubridate的{​​{1}}的{​​{1}}和floor_date用作“星期”。默认情况下，星期从ceiling_date的星期日开始，因此要使开始日期成为星期一，我们需要在unit中加1。

lubridate