R/int2hours.R

In marionlouveaux/mamut2r: Import of MaMuT xml files into R

#' Convert an integer to hour minutes in digital format
#' Assumes that integers (0, 1, 2) refers to 30 minutes timesteps (00:00, 00:30, 01:00)... Same function as in {cellviz3d}.
#'
#' @param x integer
#' @importFrom glue glue
#'
#' @return a string with the hour in digital format (HH:mm)
#'

int2hours <- function(x) {
  Hours <- formatC(floor(x), width = 2, flag = "0")
  Minutes <- formatC( (x - floor(x))*60, width = 2, flag = "0")
  glue(Hours, ":", Minutes)
}