R/utils_time.R

In fkeck/subtools: Read and Manipulate Video Subtitles

# Format time as HH:MM:SS.mS
.format_subtime <- function(x){
  x <- gsub(",", ".", x)
  x <- strsplit(x, split = ":")

  l <- lapply(x, length)
  x <- mapply(function(x, l) c(rep("00", -l + 3), x), x = x, l = l, SIMPLIFY = FALSE)

  x.h <- sapply(x, function(x) as.numeric(x[1]))
  x.m <- sapply(x, function(x) as.numeric(x[2]))
  x.s <- sapply(x, function(x) as.numeric(x[3]))

  res <- hms::hms(seconds = x.s, minutes = x.m, hours = x.h)
  return(res)
}