## ----echo=FALSE--------------------------------------------------------------- library(BiocStyle) self <- Githubpkg("ArtifactDB/alabaster.matrix") knitr::opts_chunk$set(error=FALSE, warning=FALSE, message=FALSE) ## ----------------------------------------------------------------------------- library(Matrix) y <- rsparsematrix(1000, 100, density=0.05) library(alabaster.matrix) tmp <- tempfile() dir.create(tmp) meta <- stageObject(y, tmp, "my_sparse_matrix") library(alabaster.base) .writeMetadata(meta, tmp) list.files(tmp, recursive=TRUE) ## ----------------------------------------------------------------------------- meta <- acquireMetadata(tmp, "my_sparse_matrix/matrix.h5") roundtrip <- loadObject(meta, tmp) class(roundtrip) ## ----------------------------------------------------------------------------- library(DelayedArray) y <- DelayedArray(rsparsematrix(1000, 100, 0.05)) y <- log1p(abs(y) / 1:100) # adding some delayed ops. preserveDelayedOperations(TRUE) meta <- stageObject(y, tmp, "delayed") .writeMetadata(meta, tmp) meta <- acquireMetadata(tmp, "delayed/delayed.h5") roundtrip <- loadObject(meta, tmp) class(roundtrip) ## ----------------------------------------------------------------------------- sessionInfo()