context("test-ggseg:::adapt_scales")
test_that("Check that ggseg:::adapt_scales is working", {
expect_is(ggseg(atlas = yeo17, mapping=aes(fill=area),adapt_scales = F ) +
scale_brain("yeo17"),c("gg","ggplot"))
expect_is(ggseg(atlas = yeo7, mapping=aes(color=area),adapt_scales = F ) +
scale_color_brain("yeo7"),c("gg","ggplot"))
expect_equal(mode(ggseg:::adapt_scales(yeo7 %>% unnest(ggseg))), "list")
expect_equal(mode(ggseg:::adapt_scales(yeo17 %>% unnest(ggseg))), "list")
expect_equal(mode(ggseg:::adapt_scales(glasser %>% unnest(ggseg))), "list")
expect_equal(mode(ggseg:::adapt_scales(tracula %>% unnest(ggseg))), "list")
expect_equal(mode(ggseg:::adapt_scales(jhu %>% unnest(ggseg))), "list")
expect_equal(mode(ggseg:::adapt_scales(hoCort %>% unnest(ggseg))), "list")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.