火曜日のベクトルを取得しますが、火曜日が休日の場合は、水曜日にR

Question

に置き換えてください。火曜日はすべて2つの日付の間で検索したいと思います。しかし、火曜日が休日のユーザ定義のリストにある場合、私は水曜日を代わりにしたいと思います。

このコードは、私のテストで動作しますが、それはかなりjankyであり、私はそれを黙って失敗します怖いです。

low.date <- "1996-01-01" 
high.date <- "1997-01-01" 
holidays = c("01-01", "07-04", "12-25") 
tues <- seq(as.Date(low.date), as.Date(high.date), by = 1) 
tues <- subset(tues, format(tues, "%a") == "Tue") 
tues <- ifelse(format(tues, "%m-%d") %in% holidays, tues + 1, tues) 
tues <- as.Date(tues, origin = "1970-01-01") 

ありがとうございます！回答はtimeDateパッケージを指していますが、私は営業日や休日を見つける方法しか見ません。私が使用しているものよりもクリーナー/安全なロジックはありますか？基本パッケージで

Answer 1

POSIXltは、あなたが日の名前はシステムからシステムに変更するので、少し安全です数、としてwdayにアクセスすることができます。

low.date <- "1996-01-01" 
high.date <- "1997-01-01" 
holidays <- c("01-01", "07-04", "12-25") 

all.days <- seq(as.Date(low.date), as.Date(high.date), by = "day") 

# Tuesday is Day 2 of the week 
all.tues <- all.days[as.POSIXlt(all.days)$wday == 2] 
tues.holidays <- format(all.tues, "%m-%d") %in% holidays 
all.tues[tues.holidays] <- all.tues[tues.holidays] + 1 

Answer 2

解決策のロジックを変更することは困難です。しかしここにlubridateパッケージのwday機能を使用して別のフォームです。 lubridateパッケージ日数が若干不便

hol_tue <- wday(tues) == 3L & format(tues, "%m-%d") %in% holidays 
wday(tues)[hol_tue] <- 4 

それが唯一のマイナーなコメント0