R/h5save.R

In patperry/rhdf5: HDF5 interface to R

h5save <- function(..., file, name = NULL, createnewfile=TRUE) {
  N <- length(list(...))

  # get object names
  if (is.null(name)) {
    names <- as.character(substitute(list(...)))[-1L]
  }
  if (length(names) != N) {
    stop("length of names must fit the number of objects to save.")
  }

  loc = h5checktypeOrOpenLoc(file, createnewfile=createnewfile)

  for (i in 1:N) {
    h5write(list(...)[[i]], file = loc$H5Identifier, name = names[i])
  }

  h5closeitLoc(loc)
  invisible(NULL)
}