强制as.Date的季度结束日期(as.yearqtr())

Question

zoo包中的as.yearqtr()似乎使用了季度的开头:

library(zoo)
x <- "2015-05-17"
x <- as.Date(x)
x <- as.Date(as.yearqtr(x))
x

# [1] "2015-04-01"

我怎么可能抢到季度结束？

x

# [1] "2015-06-30"

谢谢!

Answer 1

使用frac = 1如下所示:

x <- as.Date("2015-05-17")
as.Date( as.yearqtr(x), frac = 1 )

赠送:

[1] "2015-06-30"