Как извлечь время из строки?

Question

Набор файлов был назван в соответствии с их продолжительностью. Например, «832-34» означает с 08:32 до 08:34. Дефис используется во всех именах файлов, как мне извлечь из них время?

Answer 1

Это решение основано только на одном существующем примере выше. Там нет никаких гарантий для работы под другими созвездиями.

t <- "832-34"

t_from <- sub("-.*", "", t)
t_from <- gsub('^(.{-3})(.*)$', '\\1:\\2', t_from)
t_from <- as.POSIXct(t_from,format="%H:%M")

t_to <- sub(".*-", "", t)
t_to <- paste0(hour(t_from), ":",t_to)
t_to <-  as.POSIXct(t_to,format="%H:%M")

paste(format(t_from, '%H:%M'), "to", format(t_to, '%H:%M'))