R/function_hours.R

In AirExposure: Exposure Model to Air Pollutants Based on Mobility and Daily Activities

function_hours <-
function(minutes){
  minutes <- round(minutes)
  hs_tot <- (minutes/60)
  integer <- floor(hs_tot)
  decimal <- hs_tot-integer
  mins <- round((decimal*60/1),1)
  if (integer<=9){
    integer_2 <- paste("0",integer,sep = "")
  }else{
    integer_2<- integer
  }
  
  if (mins<=9){
    mins_2 <- paste("0",mins,sep = "")
  }else{
    mins_2<- mins
  }
  output <- (paste (integer_2,mins_2,sep=":"))
  
  return (output)
}