Nothing
test_that("Default parameters", {
if (rmarkdown::pandoc_available()) {
expect_null(render(nacho_object = GSE74821, clean = FALSE))
} else {
expect_error(render(nacho_object = GSE74821))
}
})
test_that("with legend", {
if (rmarkdown::pandoc_available()) {
expect_null(render(nacho_object = GSE74821, show_legend = TRUE))
} else {
expect_error(render(nacho_object = GSE74821))
}
})
test_that("with Rmd", {
if (rmarkdown::pandoc_available()) {
expect_null(render(nacho_object = GSE74821, clean = FALSE))
} else {
expect_error(render(nacho_object = GSE74821))
}
})
test_that("missing object", {
if (rmarkdown::pandoc_available()) {
expect_error(render())
} else {
expect_error(render())
}
})
test_that("wrong attribute", {
attr(GSE74821, "RCC_type") <- "something_wrong"
if (rmarkdown::pandoc_available()) {
expect_error(render(nacho_object = GSE74821, clean = FALSE))
} else {
expect_error(render(nacho_object = GSE74821))
}
})
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.