将收集的最后日期设置为星期一

Question

我可以使用Quantmod下载数据集

library(quantmod)
getSymbols("SPY", from="2013-01-01", to=Sys.Date())
chartSeries(SPY)

我希望收集的最后一个数据总是在星期一（所以如果我在周四收集数据，那么星期二，星期三和星期四的数据点将被过滤掉）。有没有办法做到这一点。

感谢您的帮助。

Answer 1

将您的to=Sys.Date()替换为to=(Sys.Date()-c(6:0))[format((Sys.Date()-c(6:0)),"%w")=="1"]