Nothing
context("autoplot")
#no effect since vdiffr capture and report the warnings anyway
# options(warn = -1)#suppress removing rows warnings from ggplot
fs <- GvHD[subset(pData(GvHD), Patient %in%5 & Visit %in% c(5:6))[["name"]]]
fs <- flowSet_to_cytoset(fs)
set.seed(1)#due to subsampling
test_that("autoplot -- flowset", {
suppressWarnings(expect_doppelganger("autoplot-fs-1d", autoplot(fs, x = 'FSC-H')))
suppressWarnings(expect_doppelganger("autoplot-fs-2d", autoplot(fs, x = 'FSC-H', y = 'SSC-H', bins = 128)))
})
test_that("autoplot -- gatingset", {
#exaggerate the gate difference between two samples in order to test whether plot will refect it
g <- gh_pop_get_gate(gs[[2]], "CD3")
g@min[1] <- 1800
gh_pop_set_gate(gs[[2]], "CD3", g)
suppressWarnings(expect_doppelganger("autoplot-gs-1-gate", autoplot(gs, "CD3")))
suppressWarnings(expect_doppelganger("autoplot-gs-2-gate", autoplot(gs, c("CD3", "CD19"))))
suppressWarnings(expect_doppelganger("autoplot-gs-bool-gate", autoplot(gs, "CD19andCD20")))
})
#TODO:tackle error of 'svglite only supports one page'
# test_that("autoplot -- flowFrame", {
# expect_doppelganger("autoplot-fr", autoplot(fs[[1]]) + labs_cyto("marker"))
#
# })
# test_that("autoplot -- gatinghierarchy", {
# gh <- gs[[1]]
# nodes <- gs_get_pop_paths(gh, path = "auto")[c(3:6)]
#
# expect_doppelganger("autoplot-gs-1-gate", autoplot(gh, nodes))
# })
#
# test_that("autoplot -- ggcyto_arrange", {
# nodes <- gs_get_pop_paths(gs[[1]], path = "auto")[c(3:6)]
# res <- autoplot(gs[[1]], nodes)
# expect_is(res, "ggcyto_GatingLayout")
# # arrange it as one-row gtable object
# gt <- ggcyto_arrange(res, nrow = 1)
# expect_is(gt, "gtable")
# # do the same to the second sample
# gt2 <- ggcyto_arrange(autoplot(gs[[2]], nodes), nrow = 1)
# # combine the two and print it on the sampe page
# gt3 <- gridExtra::gtable_rbind(gt, gt2)
# # plot(gt3)
# expect_doppelganger("autoplot-ggcyto_arrange", gt3)
#
# })
# options(warn = 0)#restore default
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.