将具有不同时区的时间的字符向量转换为R中的UTC

Question

我有一个字符值向量，其中一些在EST中，而另一些在EDT中：

c("2/28/19 10:09:56 PM EST", "2/28/19 10:46:57 PM EST", "3/13/19 6:41:18 PM EDT", 
"3/13/19 7:05:19 PM EDT", "3/13/19 7:37:50 PM EDT", "3/13/19 7:58:33 PM EDT"
)

如何将这些字符值转换为具有UTC时区的Date对象？我知道，如果我只有一个时区（如EST），我会做到的：

with_tz(mdy_hms(date, tz = "EST"), "UTC")

但是，我将EST和EDT混合在一起，所以不知道在lubridate

中该如何处理

谢谢