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

I would like to generate a sequence of dates by quarter backwards from a given date (31 July 2015). Instead of getting the last day of April, I get the first day of May as below:I would like to generate a sequence of dates by