获取距离给定日期一定距离的日期

Question

如何获得比给定日期更早/更早的设定数量的日期？例如，如果x <- as.Date("2001-01-01")，我如何获得6个月后（2001-07-01）或更早（2000-07-01）的日期而不是x？复杂因素包括初始日期的月份或每月的天数。

Answer 1

library(lubridate)
ymd("2001-01-01") + months(6)
ymd("2001-01-01") - months(6)

Answer 2

seq( as.Date("2001/01/01"), by = "6 months", length = 2)[2]
# [1] "2001-07-01"