#' Sum times in format "hh:mm:ss"
#'
#' @description
#' sums a character vector of times in format "hh:mm:ss"
#'
#' @param times a character vector of times
#'
#' @return returns a character vector of summed times
#' @export
sum_hms <- function(times) {
times.sec <- sum(lubridate::period_to_seconds(lubridate::hms(times)))
sec_to_hms(times.sec)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.