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