相关疑难解决方法(0)

我可以得到今天的日期:

Sys.Date( )

但是我怎么得到上周五的约会？我试过了:

library(xts)
date1 <- Sys.Date( ) 
to.weekly(date1 )

但这会产生错误.

谢谢您的帮助