tests/testthat/test-cluster_cells.R

In ddiez/scmisc: Miscellaneus Tools for the Analysis of Single Cell Data

context("test-cluster_cells")

set.seed(123)
x <- cluster_cells(scmisc::sce, method = "kmeans", ncluster = 5)

test_that("cluster_cells works", {
  expect_false(is.null(x[["cluster"]]))
  expect_equal(nlevels(x[["cluster"]]), 5)
  expect_equal(as.character(x[["cluster"]][1]), "4")
})