R/time_strs_to_n_secs.R

In richelbilderbeek/peregrine: Work With The Groninger Peregrine Computer Cluster

#' Convert each time string to the number of seconds
#' @param strs the time strings as text, for example \code{"12:34:56"}
#' @examples
#' time_strs <- c("00:00:01", "01:02:03", "1-02:03:04")
#'
#' # Reduplicated plural: a vector of number of seconds
#' time_strs_to_n_secs(time_strs)
#' @export
time_strs_to_n_secs <- function(strs) {
  n_secs <- rep(NA, length(strs))
  for (i in seq_along(strs)) {
    n_secs[i] <- peregrine::time_str_to_n_sec(strs[i])
  }
  n_secs
}