garrick
/
xaringanthemer
zrcadlo https://github.com/gadenbuie/xaringanthemer.git
Sledovat 1
Oblíbit 0
Rozštěpit 0
Zdrojový kód Úkoly 0 Vydání 10 Wiki Aktivita
😎 Give your xaringan slides some style
Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
312 Revize
5 Větve
Strom: 9f7460eee9
Větve Značky
${ item.name }
Vytvořit větev ${ searchTerm }
z „9f7460eee9“
${ noResults }
xaringanthemer/tests/testthat/test-ggplot2.R

525 lines
19KB
Surový Blame Historie 

  1. test_that("requires_xaringanthemer_env() errors if no style function called", {

  2.   expect_error(

  3.     with_clean_session(function() {

  4.       xaringanthemer::requires_xaringanthemer_env(NULL, FALSE)

  5.     })

  6.   )

  7. })

  8. 

  9. describe("theme_xaringan()", {

  10. 

  11.   it("errors if no css file or style_xaringan theme called", {

  12.     expect_error(

  13.       with_clean_session(function() {

  14.         xaringanthemer::theme_xaringan()

  15.       })

  16.     )

  17.   })

  18. 

  19.   it("returns a theme using the style_xaringan colors", {

  20.     theme <- with_clean_session(function() {

  21.       xaringanthemer::style_xaringan(

  22.         text_color = "#000001",

  23.         background_color = "#000002",

  24.         header_color = "#000003",

  25.         text_bold_color = "#000004",

  26.         text_font_family = "Damogran",

  27.         text_font_google = NULL,

  28.         header_font_family = "Magrathea",

  29.         header_font_google = NULL

  30.       )

  31.       xaringanthemer::theme_xaringan(

  32.         text_font_use_google = FALSE,

  33.         title_font_use_google = FALSE

  34.       )

  35.     })

  36. 

  37.     expect_equal(theme$text$family, "Damogran")

  38.     expect_equal(theme$title$family, "Magrathea")

  39.     expect_equal(theme$title$colour, "#000003")

  40.     expect_equal(theme$plot.background$colour, "#000002")

  41.     expect_equal(theme$plot.background$fill, "#000002")

  42.   })

  43. 

  44.   it("returns correct theme reading from a css file", {

  45.     css <- xaringanthemer::style_xaringan(

  46.       text_color = "#000001",

  47.       background_color = "#000002",

  48.       header_color = "#000003",

  49.       text_bold_color = "#000004",

  50.       text_font_family = "Damogran",

  51.       text_font_google = NULL,

  52.       header_font_family = "Magrathea",

  53.       header_font_google = NULL,

  54.       outfile = NULL

  55.     )

  56. 

  57.     theme <- with_clean_session(function(css) {

  58.       writeLines(css, "xaringan-themer.css")

  59.       xaringanthemer::theme_xaringan(

  60.         text_font_use_google = FALSE,

  61.         title_font_use_google = FALSE

  62.       )

  63.     }, list(css = css))

  64. 

  65.     expect_equal(theme$text$family, "Damogran")

  66.     expect_equal(theme$title$family, "Magrathea")

  67.     expect_equal(theme$title$colour, "#000003")

  68.     expect_equal(theme$plot.background$colour, "#000002")

  69.     expect_equal(theme$plot.background$fill, "#000002")

  70.   })

  71. 

  72.   it("works with 3-digit hex colors", {

  73.     theme <- with_clean_session(function() {

  74.       xaringanthemer::style_xaringan(

  75.         text_color = "#001",

  76.         background_color = "#002",

  77.         header_color = "#003",

  78.         text_bold_color = "#004"

  79.       )

  80.       xaringanthemer::theme_xaringan(

  81.         text_font_use_google = FALSE,

  82.         title_font_use_google = FALSE

  83.       )

  84.     })

  85. 

  86.     expect_equal(theme$title$colour, "#000033")

  87.     expect_equal(theme$plot.background$colour, "#000022")

  88.     expect_equal(theme$plot.background$fill, "#000022")

  89.   })

  90. 

  91.   it("throws error for non-hex color functions", {

  92.     expect_error(

  93.       with_clean_session(function() {

  94.         xaringanthemer::style_xaringan(

  95.           text_color = "rgb(0, 0, 0)",

  96.           outfile = NULL

  97.         )

  98.         xaringanthemer::theme_xaringan(

  99.           text_font_use_google = FALSE,

  100.           title_font_use_google = FALSE

  101.         )

  102.       })

  103.     )

  104.   })

  105. 

  106.   it("correctly overwrites geom default values", {

  107.     fonts <- with_clean_session(function() {

  108.       style <- xaringanthemer::style_xaringan(outfile = NULL)

  109. 

  110.       g <- ggplot2::ggplot(mtcars, ggplot2::aes(x = cyl, y = disp, label = carb))

  111.       fonts <- list()

  112.       plot1 <- g + ggplot2::geom_text() + xaringanthemer::theme_xaringan()

  113.       fonts[[1]] <- plot1$layers[[1]]$geom$default_aes$family

  114.       plot2 <- g + ggplot2::geom_text() + xaringanthemer::theme_xaringan(text_font = "Ranga", text_font_use_google = TRUE)

  115.       fonts[[2]] <- plot2$layers[[1]]$geom$default_aes$family

  116.       fonts

  117.     })

  118. 

  119.     expect_equal(fonts[[1]], "Noto Sans")

  120.     expect_equal(fonts[[2]], "Ranga")

  121.   })

  122. })

  123. 

  124. describe("theme_xaringan_inverse()", {

  125. 

  126.   it("errors if no css file or style_xaringan theme called", {

  127.     expect_error(

  128.       with_clean_session(function() {

  129.         xaringanthemer::theme_xaringan_inverse()

  130.       })

  131.     )

  132.   })

  133. 

  134.   it("returns a theme using the style_xaringan colors", {

  135.     theme <- with_clean_session(function() {

  136.       xaringanthemer::style_xaringan(

  137.         text_color = "#000001",

  138.         inverse_text_color = "#100000",

  139.         background_color = "#000002",

  140.         inverse_background_color = "#200000",

  141.         header_color = "#000003",

  142.         inverse_header_color = "#300000",

  143.         text_bold_color = "#000004",

  144.         text_font_family = "Damogran",

  145.         text_font_google = NULL,

  146.         header_font_family = "Magrathea",

  147.         header_font_google = NULL

  148.       )

  149.       xaringanthemer::theme_xaringan_inverse(

  150.         text_font_use_google = FALSE,

  151.         title_font_use_google = FALSE

  152.       )

  153.     })

  154. 

  155.     expect_equal(theme$text$family, "Damogran")

  156.     expect_equal(theme$title$family, "Magrathea")

  157.     expect_equal(theme$title$colour, "#300000")

  158.     expect_equal(theme$plot.background$colour, "#200000")

  159.     expect_equal(theme$plot.background$fill, "#200000")

  160.   })

  161. 

  162.   it("returns correct colors pulling from css file", {

  163.     css <- xaringanthemer::style_xaringan(

  164.       text_color = "#000001",

  165.       inverse_text_color = "#100000",

  166.       background_color = "#000002",

  167.       inverse_background_color = "#200000",

  168.       header_color = "#000003",

  169.       inverse_header_color = "#300000",

  170.       text_bold_color = "#000004",

  171.       text_font_family = "Damogran",

  172.       text_font_google = NULL,

  173.       header_font_family = "Magrathea",

  174.       header_font_google = NULL,

  175.       outfile = NULL

  176.     )

  177.     theme <- with_clean_session(function(css) {

  178.       writeLines(css, "basic.css")

  179.       xaringanthemer::theme_xaringan_inverse(

  180.         text_font_use_google = FALSE,

  181.         title_font_use_google = FALSE

  182.       )

  183.     }, list(css = css))

  184. 

  185.     expect_equal(theme$text$family, "Damogran")

  186.     expect_equal(theme$title$family, "Magrathea")

  187.     expect_equal(theme$title$colour, "#300000")

  188.     expect_equal(theme$plot.background$colour, "#200000")

  189.     expect_equal(theme$plot.background$fill, "#200000")

  190.   })

  191. 

  192.   it("works with 3-digit hex colors", {

  193.     theme <- with_clean_session(function() {

  194.       xaringanthemer::style_xaringan(

  195.         text_color = "#001",

  196.         background_color = "#002",

  197.         header_color = "#003",

  198.         inverse_text_color = "#100",

  199.         inverse_background_color = "#200",

  200.         inverse_header_color = "#300",

  201.         text_bold_color = "#004"

  202.       )

  203.       xaringanthemer::theme_xaringan_inverse(

  204.         text_font_use_google = FALSE,

  205.         title_font_use_google = FALSE

  206.       )

  207.     })

  208. 

  209.     expect_equal(theme$title$colour, "#330000")

  210.     expect_equal(theme$plot.background$colour, "#220000")

  211.     expect_equal(theme$plot.background$fill, "#220000")

  212.   })

  213. })

  214. 

  215. describe("theme_xaringan_base()", {

  216.   it("accepts a regular text_font or title_font", {

  217.     theme <- with_clean_session(function() {

  218.       xaringanthemer::theme_xaringan_base(

  219.         text_color = "#000",

  220.         accent_color = "#1a2b3c",

  221.         background_color = "#FFF",

  222.         text_font = "sans", title_font = "serif",

  223.         text_font_use_google = FALSE, title_font_use_google = FALSE

  224.       )

  225.     })

  226.     expect_equal(theme$title$colour, "#1a2b3c")

  227.     expect_equal(theme$title$family, "serif")

  228.     expect_equal(theme$plot.background$colour, "#FFFFFF")

  229.     expect_equal(theme$text$colour, "#1A1A1A")

  230.     expect_equal(theme$text$family, "sans")

  231.   })

  232. })

  233. 

  234. test_that("theme_xaringan_restore_defaults() restores defaults", {

  235.   res <- with_clean_session(function() {

  236.     res <- list()

  237. 

  238.     res$nothing <- list(xaringanthemer::theme_xaringan_restore_defaults())

  239. 

  240.     res$original <- list(

  241.       colour = ggplot2::geom_line()$geom$default_aes$colour,

  242.       fill = ggplot2::geom_bar()$geom$default_aes$fill

  243.     )

  244. 

  245.     old_defaults <- xaringanthemer::theme_xaringan_set_defaults(

  246.       text_color = "#0088ff",

  247.       background_color = "#88ff00",

  248.       accent_color = "#FF8800"

  249.     )

  250. 

  251.     res$after_set <- list(

  252.       line_colour = ggplot2::geom_line()$geom$default_aes$colour,

  253.       bar_fill = ggplot2::geom_bar()$geom$default_aes$fill

  254.     )

  255. 

  256.     xaringanthemer::theme_xaringan_restore_defaults()

  257. 

  258.     res$after_restore <- list(

  259.       line_colour = ggplot2::geom_line()$geom$default_aes$colour,

  260.       bar_fill = ggplot2::geom_bar()$geom$default_aes$fill

  261.     )

  262.     res

  263.   })

  264.   expect_equal(res$nothing, list(NULL))

  265.   expect_equal(res$after_set$line_colour, "#0088ff")

  266.   expect_equal(res$after_set$bar_fill, "#FF8800")

  267.   expect_equal(res$after_restore$line_colour, res$original$colour)

  268.   expect_equal(res$after_restore$bar_fill, res$original$fil)

  269. })

  270. 

  271. describe("theme_xaringan_get_value()", {

  272. 

  273.   it("errors if no css file or style_xaringan theme called", {

  274.     expect_error(

  275.       with_clean_session(function() {

  276.         xaringanthemer::theme_xaringan_get_value("text_font_family")

  277.       })

  278.     )

  279.   })

  280. 

  281.   it("returns theme values", {

  282.     theme <- with_clean_session(function() {

  283.       xaringanthemer::style_xaringan(

  284.         base_font_size = "33px",

  285.         text_font_size = "23px",

  286.         text_color = "#000001",

  287.         inverse_text_color = "#100000",

  288.         background_color = "#000002",

  289.         inverse_background_color = "#200000",

  290.         header_color = "#000003",

  291.         inverse_header_color = "#300000",

  292.         text_bold_color = "#000004",

  293.         text_font_family = "Damogran",

  294.         text_font_google = NULL,

  295.         header_font_family = "Magrathea",

  296.         header_font_google = NULL,

  297.         outfile = NULL

  298.       )

  299.       list(

  300.         text = xaringanthemer::theme_xaringan_get_value(c("text_font_family", "text_font_is_google", "text_color", "text_bold_color")),

  301.         code_font_is_google = xaringanthemer::theme_xaringan_get_value("code_font_is_google"),

  302.         inverse_text_color = xaringanthemer::theme_xaringan_get_value("inverse_text_color"),

  303.         background_color = xaringanthemer::theme_xaringan_get_value("background_color"),

  304.         header_color = xaringanthemer::theme_xaringan_get_value("header_color"),

  305.         inverse_header_color = xaringanthemer::theme_xaringan_get_value("inverse_header_color"),

  306.         base_font_size = xaringanthemer:::get_base_font_size(),

  307.         accent_color = xaringanthemer:::get_theme_accent_color(),

  308.         accent_color_inverse = xaringanthemer:::get_theme_accent_color(inverse = TRUE)

  309.       )

  310.     })

  311. 

  312.     expect_equal(theme$text$text_font_family, "Damogran")

  313.     expect_equal(theme$text$text_color, "#000001")

  314.     expect_false(theme$text$text_font_is_google)

  315.     expect_true(theme$code_font_is_google)

  316.     expect_equal(theme$text$text_bold_color, "#000004")

  317.     expect_equal(theme$inverse_text_color, "#100000")

  318.     expect_equal(theme$background_color, "#000002")

  319.     expect_equal(theme$header_color, "#000003")

  320.     expect_equal(theme$inverse_header_color, "#300000")

  321.     expect_equal(theme$base_font_size, 33)

  322.     expect_equal(theme$accent_color, "#000003")

  323.     expect_equal(theme$accent_color_inverse, "#300000")

  324.   })

  325. 

  326.   it("returns theme values from the css file", {

  327.     expect_warning(

  328.       css <- xaringanthemer::style_xaringan(

  329.         base_font_size = "1em",

  330.         text_color = "#000001",

  331.         inverse_text_color = "#100000",

  332.         background_color = "#000002",

  333.         inverse_background_color = "#200000",

  334.         header_color = "#000003",

  335.         inverse_header_color = "#300000",

  336.         text_bold_color = "#000004",

  337.         text_font_family = "Damogran",

  338.         text_font_google = NULL,

  339.         header_font_family = "Magrathea",

  340.         header_font_google = NULL,

  341.         outfile = NULL

  342.       )

  343.     )

  344.     theme <- with_clean_session(function(css) {

  345.       writeLines(css, "xaringan-themer.css")

  346.       list(

  347.         text = xaringanthemer::theme_xaringan_get_value(c("text_font_family", "text_font_is_google", "text_color", "text_bold_color")),

  348.         code_font_is_google = xaringanthemer::theme_xaringan_get_value("code_font_is_google"),

  349.         inverse_text_color = xaringanthemer::theme_xaringan_get_value("inverse_text_color"),

  350.         background_color = xaringanthemer::theme_xaringan_get_value("background_color"),

  351.         header_color = xaringanthemer::theme_xaringan_get_value("header_color"),

  352.         inverse_header_color = xaringanthemer::theme_xaringan_get_value("inverse_header_color"),

  353.         base_font_size = xaringanthemer:::get_base_font_size(),

  354.         accent_color = xaringanthemer:::get_theme_accent_color(),

  355.         accent_color_inverse = xaringanthemer:::get_theme_accent_color(inverse = TRUE)

  356.       )

  357.     }, list(css = css))

  358. 

  359.     expect_equal(theme$text$text_font_family, "Damogran")

  360.     expect_equal(theme$text$text_color, "#000001")

  361.     expect_false(theme$text$text_font_is_google)

  362.     expect_true(theme$code_font_is_google)

  363.     expect_equal(theme$text$text_bold_color, "#000004")

  364.     expect_equal(theme$inverse_text_color, "#100000")

  365.     expect_equal(theme$background_color, "#000002")

  366.     expect_equal(theme$header_color, "#000003")

  367.     expect_equal(theme$inverse_header_color, "#300000")

  368.     expect_equal(theme$base_font_size, 16)

  369.     expect_equal(theme$accent_color, "#000003")

  370.     expect_equal(theme$accent_color_inverse, "#300000")

  371.   })

  372. })

  373. 

  374. describe("web_to_point()", {

  375.   it("is invariant when x is pt", {

  376.     expect_equal(web_to_point("24pt", 11), 24)

  377.     expect_equal(web_to_point("24pt", 11), 24)

  378.     expect_equal(web_to_point("24pt", 11, scale = 3), 24)

  379.   })

  380. 

  381.   it("scales px", {

  382.     expect_equal(web_to_point("24px", 10, 1), 24)

  383.     expect_equal(web_to_point("24px", 10, 0.5), 12)

  384.   })

  385. 

  386.   it("scales r/em", {

  387.     expect_equal(web_to_point("2.4em",  10, 1), 24)

  388.     expect_equal(web_to_point("2.4rem", 10, 1), 24)

  389.     expect_equal(web_to_point("2.4em",  10, 0.5), 12)

  390.     expect_equal(web_to_point("2.4rem", 10, 0.5), 12)

  391.   })

  392. 

  393.   it("returns NULL if input is NULL or poorly defined", {

  394.     expect_null(web_to_point(NULL))

  395.     expect_null(web_to_point("NULL", 1))

  396.   })

  397. })

  398. 

  399. describe("get_theme_accent_color()", {

  400.   it("errors if no color or default available", {

  401.     expect_error(

  402.       with_clean_session(function() {

  403.         xaringanthemer:::get_theme_accent_color()

  404.       })

  405.     )

  406.   })

  407. })

  408. 

  409. describe("scale_xaringan_*", {

  410.   scales <- with_clean_session(function() {

  411.     xaringanthemer::style_xaringan(

  412.       background_color = "#00FF00",

  413.       inverse_background_color = "#FF00FF",

  414.       header_color = "#FF0000",

  415.       inverse_header_color = "#0000FF",

  416.       outfile = NULL

  417.     )

  418.     list(

  419.       discrete = list(

  420.         fill = xaringanthemer::scale_xaringan_fill_discrete(),

  421.         fill_inverse = xaringanthemer::scale_xaringan_fill_discrete(inverse = TRUE),

  422.         fill_reverse = xaringanthemer::scale_xaringan_fill_discrete(direction = -1),

  423.         color = xaringanthemer::scale_xaringan_color_discrete(),

  424.         color_inverse = xaringanthemer::scale_xaringan_color_discrete(inverse = TRUE),

  425.         color_reverse = xaringanthemer::scale_xaringan_color_discrete(direction = -1),

  426.         colour = xaringanthemer::scale_xaringan_colour_discrete(),

  427.         colour_inverse = xaringanthemer::scale_xaringan_colour_discrete(inverse = TRUE),

  428.         colour_reverse = xaringanthemer::scale_xaringan_colour_discrete(direction = -1)

  429.       ),

  430.       continuous = list(

  431.         fill = xaringanthemer::scale_xaringan_fill_continuous(),

  432.         fill_inverse = xaringanthemer::scale_xaringan_fill_continuous(inverse = TRUE),

  433.         fill_reverse = xaringanthemer::scale_xaringan_fill_continuous(begin = 1, end = 0),

  434.         color = xaringanthemer::scale_xaringan_color_continuous(),

  435.         color_inverse = xaringanthemer::scale_xaringan_color_continuous(inverse = TRUE),

  436.         color_reverse = xaringanthemer::scale_xaringan_color_continuous(begin = 1, end = 0),

  437.         colour = xaringanthemer::scale_xaringan_colour_continuous(),

  438.         colour_inverse = xaringanthemer::scale_xaringan_colour_continuous(inverse = TRUE),

  439.         colour_reverse = xaringanthemer::scale_xaringan_colour_continuous(begin = 1, end = 0)

  440.       )

  441.     )

  442.   })

  443. 

  444.   it("discrete scales create ScaleDiscrete ggproto objects", {

  445.     for (s in scales$discrete) {

  446.       expect_s3_class(s, "ScaleDiscrete")

  447.       expect_s3_class(s, "ggproto")

  448.     }

  449.   })

  450. 

  451.   it("discrete scales use accent color as starting point", {

  452.     expect_equal(scales$discrete$fill$palette(n = 1), "#FF0000")

  453.     expect_equal(scales$discrete$color$palette(n = 1), "#FF0000")

  454.     expect_equal(scales$discrete$colour$palette(n = 1), "#FF0000")

  455.     expect_equal(scales$discrete$fill_reverse$palette(n = 1), "#FF0000")

  456.     expect_equal(scales$discrete$color_reverse$palette(n = 1), "#FF0000")

  457.     expect_equal(scales$discrete$colour_reverse$palette(n = 1), "#FF0000")

  458.   })

  459. 

  460.   it("discrete scales use inverse accent color as starting point", {

  461.     expect_equal(scales$discrete$fill_inverse$palette(n = 1), "#0000FF")

  462.     expect_equal(scales$discrete$color_inverse$palette(n = 1), "#0000FF")

  463.     expect_equal(scales$discrete$colour_inverse$palette(n = 1), "#0000FF")

  464.   })

  465. 

  466.   it("continuous scales create ScaleContinuous ggproto objects", {

  467.     for (s in scales$continuous) {

  468.       expect_s3_class(s, "ScaleContinuous")

  469.       expect_s3_class(s, "ggproto")

  470.     }

  471.   })

  472. 

  473.   it("continuous scales use accent color as starting point", {

  474.     expect_equal(scales$continuous$fill$palette(x = 1), "#FF0000")

  475.     expect_equal(scales$continuous$color$palette(x = 1), "#FF0000")

  476.     expect_equal(scales$continuous$colour$palette(x = 1), "#FF0000")

  477.     expect_equal(scales$continuous$fill_reverse$palette(x = 1), "#FF0000")

  478.     expect_equal(scales$continuous$color_reverse$palette(x = 1), "#FF0000")

  479.     expect_equal(scales$continuous$colour_reverse$palette(x = 1), "#FF0000")

  480.   })

  481. 

  482.   it("continuous scales use inverse accent color as starting point", {

  483.     expect_equal(scales$continuous$fill_inverse$palette(x = 1), "#0000FF")

  484.     expect_equal(scales$continuous$color_inverse$palette(x = 1), "#0000FF")

  485.     expect_equal(scales$continuous$colour_inverse$palette(x = 1), "#0000FF")

  486.   })

  487. 

  488.   it("continuous scales rescale low to high when begin = 0, end = 1", {

  489.     expect_equal(scales$continuous$fill$rescaler(1:3), 0:2 / 2)

  490.     expect_equal(scales$continuous$color$rescaler(1:3), 0:2 / 2)

  491.     expect_equal(scales$continuous$colour$rescaler(1:3), 0:2 / 2)

  492.   })

  493. 

  494.   it("continuous scales rescale high to low when begin = 1, end = 0", {

  495.     expect_equal(scales$continuous$fill_reverse$rescaler(1:3), 2:0 / 2)

  496.     expect_equal(scales$continuous$color_reverse$rescaler(1:3), 2:0 / 2)

  497.     expect_equal(scales$continuous$colour_reverse$rescaler(1:3), 2:0 / 2)

  498.   })

  499. 

  500. })

  501. 

  502. test_that("register_font() returns the name of the font family if {showtext} is missing", {

  503.   text_font_family <- xaringanthemer_font_default("text_font_family")

  504. 

  505.   family_showtext_missing <- testthat::with_mock(

  506.     `xaringanthemer:::requires_package` = function(pkg, ...) pkg != "showtext",

  507.     register_font(text_font_family, google = TRUE)

  508.   )

  509. 

  510.   expect_equal(family_showtext_missing, text_font_family)

  511. })

  512. 

  513. test_that("register_font() returns the name of the font family if {sysfonts} is missing", {

  514.   skip_if_not_installed("showtext")

  515. 

  516.   text_font_family <- xaringanthemer_font_default("text_font_family")

  517. 

  518.   family_sysfonts_missing <- testthat::with_mock(

  519.     `xaringanthemer:::requires_package` = function(pkg, ...) pkg != "sysfonts",

  520.     register_font(text_font_family, google = TRUE)

  521.   )

  522. 

  523.   expect_equal(family_sysfonts_missing, text_font_family)

  524. })