Convert from HH:MM:SS to fractions of a day.

Time_convert.R

# Convert from 'HH:MM:SS' to fractions of a day
# This also works with HH.HHHH
# and is vectorised

Time_convert <- function(x){
  
  f <- function(x,y){
    as.numeric(x)/60 + as.numeric(y)
    }
  split_time <- str_split(x, ':')
  sapply(split_time, function(x){ as.numeric( Reduce(f, rev(x)) )/24})
  
}

The use of Reduce makes this efficient and flexible. The same code works for HH:MM:SS, HH:MM, HH, HH.HHHH