无法在R中按季度正确生成日期序列

我想从给定日期（2015年7月31日）开始按季度向后生成一系列日期。我没有得到4月的最后一天，而是得到了5月的第一天，如下所示：

> seq(as.Date('2015-07-31'), as.Date('2014-09-30'), by = '-3 month')
[1] "2015-07-31" "2015-05-01" "2015-01-31" "2014-10-31"

我还尝试在

by

选项中传递

-quarter

，但出现以下错误：

> seq(as.Date('2015-07-31'), as.Date('2014-09-30'), by = '-quarter')
Error in seq.Date(as.Date("2015-07-31"), as.Date("2014-09-30"), by = "-quarter") : 
invalid string for 'by'

---

虽然我可以检查一个月的日期，如果日期被过度调整到错误的月份，我可以相应地进行更正，但我想知道是否存在一段节省的代码来执行上述操作？

一个快速修复方法是将下个月的第一天减去一天：

seq(as.Date('2015-08-01'), as.Date('2014-10-01'), by = '-3 month') -1 

[1] "2015-07-31" "2015-04-30" "2015-01-31" "2014-10-31"

---

您对上述操作的期望输出是什么？@DavidArenburg[1]“2015-07-31”“2015-04-31”“2015-01-31”“2014-10-31”