将带有偏移量值的带有时间戳的日期转换为r中的datetime

Question

说我有一个字符向量，其中包含明显是以下格式的时间戳： "20180812 17:00:00.000 -0700"-我想将其转换为以下内容 2018-08-12 10:00:00。

我尝试以下操作均无济于事：

as.POSIXct(strptime("20180812 17:00:00.000 -0700", "YYYY-MM-DD HH:mm:ss"))
[1] NA

lubridate::ymd_hms("20180812 17:00:00.000 -0700")
[1] "2018-08-13 UTC"