#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.