R从字符串中提取最早的日期

Question

我有包含各种日期时间信息的字符串，我希望从字符串中提取最早的日期。请注意日期时间信息的格式YYYY:MM:SS。

2022-04-13 23:59:01 - System Administrator (End-user comments)
Blah Blah Blah

2022-04-06 09:57:01 - John (Smith) [Team A]  (End-user comments)
Blah blah blah
    
2022-04-05 17:48:13 - Sarah (Johns) [Team B]  (End-user comments)
Blah Blah Blah

2022-04-04 13:34:07 - Robert (Mills) [Team C]  (End-user comments)
Blah Blah Blah

我希望从上面的字符串派生出"2022-04-04 13:34:07“。

我有超过两万个像上面这样的乳房。并非所有的obs都有4种不同的日期时间信息，如上面所示，有时可能只有2或有时超过10。

Answer 1

我们可以使用str_extract_all和sort

input <- "2022-04-13 23:59:01 - System Administrator (End-user comments)\nBlah Blah Blah\n\n2022-04-06 09:57:01 - John (Smith) [Team A]  (End-user comments)\nBlah blah blah\n\n2022-04-05 17:48:13 - Sarah (Johns) [Team B]  (End-user comments)\nBlah Blah Blah\n\n2022-04-04 13:34:07 - Robert (Mills) [Team C]  (End-user comments)\nBlah Blah Blah"
ts <- str_extract_all(input, "\\d{4}-\\d{2}-\\d{2} \\d{2}:\\d{2}:\\d{2}")[[1]]
ts <- sort(ts)
ts[1]

[1] "2022-04-04 13:34:07"