R/get_timing.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 vector of all measurement times in s from measurment start
#' @examples
#' \dontrun{
#' get_timing("tof_file.h5")
#' }
get_timing <- function(fid){
  # note maybe use: h5readAttributes(fid, "TimingData")
  timing_mat <- h5read(fid, "TimingData/BufTimes",
                       read.attributes = T)
  times <- matrix(timing_mat, ncol = 1)
  c(times)
}