R/to_date_time.R

In kkmann/CENTERTBI: CENTER-TBI Utility Functions

#' Convert date and time columns to a combined datetime
#'
#' @param date ymd date column
#' @param time hms time column
#'
#' @value ymd_hms datetime
#'
#' @export
to_date_time <- function(date, time) {
  sprintf("%s %s", as.character(date), as.character(time)) %>%
    lubridate::ymd_hms(quiet = TRUE)
}