context("test-get_coord")
x <- scmisc::sce
x <- reduce_dim(x, dims = 10)
y <- get_coord(x, "pca", add.cols = FALSE)
test_that("get_coord works", {
expect_equal(dim(y), c(493, 2))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.