我不能用 R 减去日期

Question

我尝试减去日期时间（大约 30 分钟）。我可以用 Robo3T 做到这一点。但是当我尝试这样做时，我收到如下错误。

“错误：不能从日期中减去一个字符串”

我可以用 robo3T 做到这一点，但我不能用 R 做到这一点。

这是我的 R 脚本；

datas3$aggregate(paste('[
                       {"$group": {
                       "_id": {
                       "AssetConnectDeviceKey":"$AssetConnectDeviceKey",
                       "Time": {"$add": [
                       { "$subtract": [
                       { "$subtract": [
                       { "$add": [ "$CreateDate", ',1000 * 60 * 60 * 10 ,'] },
                       "new Date(0)" 
                       ]},
                       { "$mod": [
                       { "$subtract": [
                       { "$add": [ "$CreateDate",', 1000 * 60 * 60 * 10 ,'] }, 
                       "new Date(0)"
                       ]},',
                       1000 * 60 * 30,'
                       ]}
                       ]},
                       "new Date(0)"
                       ]}
                       },
                       "Longitude": { "$avg": "$Longitude" }, 
                       "Latitude": { "$avg": "$Latitude" }

                       }}]'))

Answer 1

您可以使用 lubridate 包来实现这一点。

minutesLeftToday <- 1440 - hour(time)*60 - minute(time)