#' @export
## looks for and loads metadata.Rdata, if it doesnt exist call hdf5metaSaveR to create it.
hdf5metaLoadR <- function(filename) {
if (file.exists(paste0(paste0(dirname(filename), "/metadata/", gsub(".mat", "_metadata.Rdata", basename(filename)))))) {
load(paste0(paste0(dirname(filename), "/metadata/", gsub(".mat", "_metadata.Rdata", basename(filename)))))
return(metalist)
} else {
metalist <- hdf5metaSaveR(filename)
return(metalist)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.