context("ttheme constructors") test_that("alpha FF is applied by default", { ttheme.ls <- ttheme_gtdefault() expect_type(ttheme.ls, "list") expect_equal(ttheme.ls$core$fg_params$col, "#000000FF") expect_equal(ttheme.ls$core$bg_params$col, "#FFFFFFFF") expect_equal(ttheme.ls$core$bg_params$fill, c("#F2F2F2", "#E5E5E5")) expect_equal(ttheme.ls$colhead$fg_params$col, "#000000FF") expect_equal(ttheme.ls$colhead$bg_params$col, "#FFFFFFFF") expect_equal(ttheme.ls$colhead$bg_params$fill, "#CCCCCCFF") expect_equal(ttheme.ls$rowhead$fg_params$col, "#000000FF") expect_equal(ttheme.ls$rowhead$bg_params$col, "#FFFFFFFF") expect_equal(ttheme.ls$rowhead$bg_params$fill, "#CCCCCCFF") }) test_that("text.alpha 0.25 is applied as argument", { ttheme.ls <- ttheme_gtdefault(text.alpha = 0.25) expect_type(ttheme.ls, "list") expect_equal(ttheme.ls$core$fg_params$col, "#00000040") expect_equal(ttheme.ls$core$bg_params$col, "#FFFFFFFF") expect_equal(ttheme.ls$core$bg_params$fill, c("#F2F2F2", "#E5E5E5")) expect_equal(ttheme.ls$colhead$fg_params$col, "#00000040") expect_equal(ttheme.ls$colhead$bg_params$col, "#FFFFFFFF") expect_equal(ttheme.ls$colhead$bg_params$fill, "#CCCCCCFF") expect_equal(ttheme.ls$rowhead$fg_params$col, "#00000040") expect_equal(ttheme.ls$rowhead$bg_params$col, "#FFFFFFFF") expect_equal(ttheme.ls$rowhead$bg_params$fill, "#CCCCCCFF") }) test_that("rules.alpha 0.25 is applied as argument", { ttheme.ls <- ttheme_gtdefault(rules.alpha = 0.25) expect_type(ttheme.ls, "list") expect_equal(ttheme.ls$core$fg_params$col, "#000000FF") expect_equal(ttheme.ls$core$bg_params$col, "#FFFFFF40") expect_equal(ttheme.ls$core$bg_params$fill, c("#F2F2F2", "#E5E5E5")) expect_equal(ttheme.ls$colhead$fg_params$col, "#000000FF") expect_equal(ttheme.ls$colhead$bg_params$col, "#FFFFFF40") expect_equal(ttheme.ls$colhead$bg_params$fill, "#CCCCCCFF") expect_equal(ttheme.ls$rowhead$fg_params$col, "#000000FF") expect_equal(ttheme.ls$rowhead$bg_params$col, "#FFFFFF40") expect_equal(ttheme.ls$rowhead$bg_params$fill, "#CCCCCCFF") }) test_that("canvas.alpha 0.25 is applied as argument", { ttheme.ls <- ttheme_gtdefault(rules.alpha = 0.25) expect_type(ttheme.ls, "list") expect_equal(ttheme.ls$core$fg_params$col, "#000000FF") expect_equal(ttheme.ls$core$bg_params$col, "#FFFFFF40") expect_equal(ttheme.ls$core$bg_params$fill, c("#F2F2F2", "#E5E5E5")) expect_equal(ttheme.ls$colhead$fg_params$col, "#000000FF") expect_equal(ttheme.ls$colhead$bg_params$col, "#FFFFFF40") expect_equal(ttheme.ls$colhead$bg_params$fill, "#CCCCCCFF") expect_equal(ttheme.ls$rowhead$fg_params$col, "#000000FF") expect_equal(ttheme.ls$rowhead$bg_params$col, "#FFFFFF40") expect_equal(ttheme.ls$rowhead$bg_params$fill, "#CCCCCCFF") })