context("brain_atlas-plots")
test_that("brain atlas plots work", {
expect_doppelganger("brain atlas dk plot", plot(dk))
expect_doppelganger("brain atlas dk plot noleg",
plot(dk, show.legend = FALSE))
expect_doppelganger("brain atlas dk plot position",
plot(dk,
position = position_brain(hemi ~ side)))
#
# expect_doppelganger("brain atlas aseg plot",
# plot(aseg))
k <- dk
k$data$geometry <- NULL
expect_error(plot(k), "cannot be plotted")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.