R/timestamp_to_ddh.R

In tonyfujs/mdlibtoddh:

#' timestamp_to_ddhdate
#'
#' @param time_stamp numeric: A linux time stamp
#' @param origin character the date of origin
#'
#' @return character vector
#' @export

timestamp_to_ddhdate <- function(time_stamp, origin = "1970-01-01") {
  date <- clean_date(time_stamp)
  date <- as.POSIXct(date, origin = origin, tz = "")
  date <- strftime(date, format = "%Y-%m-%d %H:%M:%S", tz = "")

  return(date)
}