library(lubridate)
library(tidyverse)
(df<- tribble(~MachineName,~Usagehours,~Region,
"ABC"," 41:43:00", "APAC",
"DEF","0:00:00","APAC",
"EFH","133:20:00", "APAC",
"DEF","1:1:1", "APAC"))
(df2 <- mutate(df,
hms = hms(Usagehours),
h=hour(hms),
m=minute(hms),
s=second(hms)))
(df3 <- group_by(df2,
MachineName) %>% summarise_at(.vars = c("h","m","s"),
.funs = sum)
)
(d4 <- mutate(df3,
hms_elapsed = paste(
h, str_pad(m, width = 2, pad = "0"),
str_pad(s, width = 2, pad = "0"), sep = ":")
))