Nothing
test_that("default", {
expect_null(print(GSE74821))
})
test_that("missing object", {
expect_error(print.nacho())
})
test_that("show_legend to TRUE", {
expect_null(print.nacho(GSE74821, colour = "CartridgeID", size = 0.5, show_legend = TRUE))
})
test_that("wrong attribute", {
attr(GSE74821, "RCC_type") <- "something_wrong"
expect_error(print.nacho(GSE74821))
})
test_that("numeric column for colour", {
GSE74821$outliers_thresholds$FoV <- 95
GSE74821$nacho$channel_count <- as.numeric(GSE74821$nacho$channel_count)
expect_null(print.nacho(GSE74821, colour = "channel_count", echo = TRUE))
})
test_that("xaringan", {
expect_null(print.nacho(GSE74821, xaringan = TRUE, echo = TRUE))
})
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.