tests/testthat/test-get_faust_markers_and_levels.R
In MiguelRodo/faustutils: Additional functions to extract and plot FAUST output
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.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
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))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.