次のエラー メッセージが表示されます。
Error in if (sum(c(new$hour, new$min, new$sec))) { :
argument is not interpretable as logical
次のコードを実行すると:
keep$EstimateDate <- as.Date(keep$date + keep$days,"%Y-%m-%d")
keep$EstimateDateWeekStart <- floor_date(keep$EstimateDate,"week") #+1
はkeep$EstimateDate
、適切にフォーマットされた日付を持つ data.table 内の列です。
はパッケージfloor_date()
内の機能です。lubridate