tests/testthat/test-get_faust_markers_and_levels.R

test_that("get_faust_markers_and_levels works", {

  marker_nlevel_vec <- get_faust_markers_and_levels(usethis::proj_path("/tests/testthat"))
  marker_vec <- c("CD33", "CD7", "CCR7", "CD8-IgD", "HLA-DR-beads", "CD14", "CD27",
                  "CD4", "CD16", "CD20", "TCRgd-CD19", "CD3", "CD45RA", "CXCR5")
  expect_identical(marker_nlevel_vec, setNames(rep(2, length(marker_vec)), marker_vec))
})
MiguelRodo/faustutils documentation built on March 26, 2021, 11:50 p.m.