执行`floor_date（）`时出错

Question

我收到以下错误消息：

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包中的一个函数。

Answer 1

我能想到的唯一情况是，if中出现错误但sum中没有错误的情况，就是当你的总和中有NA时。考虑到这一点，这很有可能发生了什么：

floor_date(as.Date(NA), "week")
#Error in if (sum(c(new$hour, new$min, new$sec))) { : 
#  argument is not interpretable as logical

换句话说，检查您是否有NA个。