# NOT RUN {
time_digits(c(.5, .25, 6))
time_digits(c(.5, 3.5, 6))
time_digits(c(5, 25, 6))
x <- c(.5, .25, 6)
numform::f_pad_left(numform::f_num(x, digits = numform::time_digits(x)))
lapply(
list(quarter = c(.5, .25, 6), half = c(.5, 3.5, 6), hour = c(5, 25, 6)),
function(x) {numform::f_pad_left(numform::f_num(x, digits = numform::time_digits(x)))}
)
# }
Run the code above in your browser using DataLab