source-hdf5.R

#' Source an HDF5 file (ignoring all groups) where each
#' entry in the HDF5 is read and assigned to a variable
#' in the current environment
#' @importFrom rhdf5 h5ls
source_hdf5 <- function(filename, e) {
  ls <- h5ls(filename)
  vars <- ls$name
  for(var in vars) {
    assign(var, h5read(filename, var), envir = e)
  }
}

# example usage
source_hdf5("myfile.h5", environment())