获取用户输入的当前日期并计算 3、6、12、24 个月前的日期

Question

我希望程序询问用户当前日期。我在想类似的事情：

日期<-strsplit(readline("Please provide the Date (just hit ENTER to keep space: ")," ") Please provide the Date (just hit ENTER to keep space:

然后，我想获取该输出并计算 30 天前、3 个月前、6 个月前、12 个月前、24 个月前的日期。

我知道 seq(as.Date("2012/12/31"), length = 2, by = "-6 个月")[2]

但是我需要用户输入内容的输出。

Answer 1

如果您需要用户提供当前日期（而不是能够提供今天以外的日期），您可以使用

format(Sys.time(), '%m/%d/%Y')

自动填充它