Summing hours in HH:MM:SS format in R

hour_summary.R

library(dplyr)
library(tidyr)
library(lubridate)

# Parse data from HH:MM:SS format into something that can be used by `lubridate`
hours %>% 
  separate(Duration, into = c("hours", "minutes", "seconds"), sep = ":", convert = TRUE) %>% 
  summarize(total_time = duration(hour = sum(hours), minute = sum(minutes), second = sum(seconds)))