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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.