library(tinytest)
library(tiledb)
ctx <- tiledb_ctx(limitTileDBCores())
uri <- tempfile()
M <- matrix(1:16, 4, 4, dimnames=list(LETTERS[1:4], letters[1:4]))
fromMatrix(M, uri)
M2 <- toMatrix(uri)
expect_equivalent(M, t(M2)) # because we now default to UNORDERED we need to transpose
uri <- tempfile()
M <- matrix(1:20, 2, 10) # matrix without rownames
fromMatrix(M, uri)
M2 <- toMatrix(uri)
expect_equivalent(M, M2)
uri <- tempfile()
M <- matrix(sqrt(1:20), 5, 4) # matrix without rownames, float values
fromMatrix(M, uri)
M3 <- toMatrix(uri)
expect_equivalent(M, M3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.