tests/testthat/test-plot_dendro.R

In dynverse/dynplot: Visualising Single-Cell Trajectories

context("Test plot_dendro")

dataset <- example_disconnected

test_that(paste0("plot_dendro on ", dataset$id), {
  g <- plot_dendro(dataset)
  expect_ggplot(g)
})

test_that(paste0("plot_dendro on ", dataset$id, " with pseudotime"), {
  g <- plot_dendro(dataset, color_cells = "pseudotime")
  expect_ggplot(g)
})

test_that(paste0("plot_dendro on ", dataset$id, " with grouping"), {
  g <- plot_dendro(dataset, grouping = dataset$grouping)
  expect_ggplot(g)
})

test_that(paste0("plot_dendro on ", dataset$id, " with milestone"), {
  g <- plot_dendro(dataset, "milestone")
  expect_ggplot(g)
})

test_that(paste0("plot_dendro on ", dataset$id, " with milestones from different trajectory"), {
  pseudotime <- dataset$counts %>% stats::prcomp() %>% {.$x[, 1]}
  pred <-
    dynwrap::wrap_data("dummy_prediction", dataset$cell_ids) %>%
    dynwrap::add_linear_trajectory(pseudotime) %>%
    dynwrap::add_root()

  g <- plot_dendro(
    pred,
    color_cells = "milestone",
    milestones = dataset$milestone_ids,
    milestone_percentages = dataset$milestone_percentages
  )
  expect_ggplot(g)
})