r - 如何找到下一个特定日期？

Question

我需要找到与一组日期相对应的所有“下周五”。

例如 2015-08-03(2015 年 8 月 3 日星期一)作为输入应该返回 2015-08-07(2015 年 8 月 7 日星期五)作为输出。

我在阅读 lubridate's vignette 时找不到满足这种需求的方法，你将如何进行？

library(lubridate) 
date <- "2015-08-03"
date <- wmd(date)
wday(date, label = TRUE)

Answer 1

试试这个功能:

nextweekday <- function(date, wday) {
  date <- as.Date(date)
  diff <- wday - wday(date)
  if( diff < 0 )
    diff <- diff + 7
  return(date + diff)
}

您插入您的日期和所需的 wday(星期日 = 1，星期一 = 2，...)并获得您想要的结果。