测试工作日然后在R中添加数字到日期

Question

我有一个日期列（df $ Date），我想创建一个新列（df $ NewColumn），根据星期几（使用Lubridate的wday）添加可变天数在df $ Date中，例如：

Parallel.ForEach

它似乎工作，唯一的问题是我的日期格式是16XXX格式，我似乎无法将其转换回适当的日期。谢谢你的帮助！

Answer 1

解决此问题的一种方法是使用IHttpHandler函数：

class()

Answer 2

如评论中所述，ifelse更改格式。如果您可以避免使用它，那么格式应该保持不变。以下代码创建了您正在寻找的输出：

library(lubridate)

df <- data.frame(Date=as.Date(c("2011/01/01",
                                "2011/01/02")))

df$NewColumn <- df$Date + 2 + as.numeric(wday(df$Date)>=6)