删除第二个冒号后的文本

Question

我需要删除第二个冒号之后的所有内容。我有几种日期格式，需要使用相同的算法进行清理。

a <- "2016-12-31T18:31:34Z"
b <- "2016-12-31T18:31Z"

我已经尝试在两个列组上进行匹配，但我似乎找不到如何删除第二个匹配组的方法。

sub("(:.*){2}", "", "2016-12-31T18:31:34Z")

Answer 1

您可以使用的正则表达式:(:[^:]+):.*

您可以查看:regex101并像这样使用

sub("(:[^:]+):.*", "\\1", "2016-12-31T18:31:34Z")
[1] "2016-12-31T18:31"
sub("(:[^:]+):.*", "\\1", "2016-12-31T18:31Z")
[1] "2016-12-31T18:31Z"