R/date-time.R

In poissonconsulting/tulip: Poisson Consulting's Utility Functions

#' @title Combine date and time
#'
#' @description
#' Combines date and time into a datetime object.
#' 
#' @param date coerced to as.Date
#' @param time coerced to as.POSIXct
#' @return A datetime object.
#' @importFrom lubridate year month day hour minute second
#' @export
combine_date_time <- function(date, time) {
  date <- as.Date(date)
  time <- as.POSIXct(time)
  
  datetime <- ISOdate(year = year(date), month = month(date), day = day(date), 
    hour = hour(time), min = minute(time), sec = second(time), tz = "GMT")
  return(datetime)
}