タスクは、2 か月間の MTD の日数を見つけることです。私の場合は流入数が最も多かった月 (7 月) と、現在の月です。ステートメントをスクリプトとして毎日実行する予定なので、何もハードコーディングしたくありません。
データフレームは次のようになります。
SERVICE BEST MONTH TOTAL BEST MONTH MTD CURR. MONTH MTD
No of Working Days
..
..
..
「BEST MONTH TOTAL」については、次のステートメントを使用しました。
report[1,2] <- sum(!weekdays(seq(as.Date('2019-07-01'), as.Date('2019-07-
31'), 'days')) %in% c('Sunday','Saturday'))
今月の MTD の日数については、以下を使用して計算した日数:
difftime(Sys.Date(),'2019-09-01',units = "days" )
これにより、次の出力が得られます。
Time difference of 12.22917 days
整数 12 だけを取得する方法はありますか?
また、BEST MONTH MTD の計算方法を教えてください。MTD の稼働日数を計算するために、7 月の sys.date() と同じ日付に戻るのに役立つ関数はありますか? つまり、本質的に必要なものは次のとおりです。
difftime('2019-07-13','2019-07-01', units = "days")
ただし、「2019-07-13」をハードコーディングしたくないのは、これをスクリプトとして実行し、毎日日付を変更することを避けたいからです。また、「...日の時差」なしで整数の差が必要です。