R/get_creation_time.R

In bdcaf/rawTof: rawTof

#' get exact time information of scans
#'
#' @export
#' @note at some point the date format changed. Currently need to try several
#' @import rhdf5
#' @param fid h5d file handle
#' @return start time as posix_ct
#' @examples
#' \dontrun{
#' get_timing("tof_file.h5")
#' }
get_creation_time <- function(fid){
  atts <- h5readAttributes(fid, "/")
  start_time <- as.POSIXct(atts[["HDF5 File Creation Time"]],
                           format = "%d.%m.%Y %H:%M:%S")
  if (is.na(start_time))
        start_time <- as.POSIXct(atts[["HDF5 File Creation Time"]],
                           format = "%d/%m/%Y %H:%M:%S")

  start_time
}