1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
## ----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()
saveObject(y, tmp)
list.files(tmp, recursive=TRUE)
## -----------------------------------------------------------------------------
roundtrip <- readObject(tmp)
class(roundtrip)
## ----eval=FALSE---------------------------------------------------------------
# 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()
|
