tests/testthat/test-theme_chn.R

context("ggplot2 theme wrapped for Chinese characters")

test_that("theme object", {
        expect_is(theme_chn(), "gg")
        expect_is(theme_chn(), "theme")
        expect_equal(typeof(theme_chn()), "list")
})
chuckleong21/doEDA documentation built on Nov. 4, 2019, 8:52 a.m.