# 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.