garrick
/
xaringanthemer
şunun yansıması https://github.com/gadenbuie/xaringanthemer.git
İzle 1
Yıldızla 0
Çatalla 0
Kod Sorunlar 0 Sürümler 10 Wiki Aktivite
😎 Give your xaringan slides some style
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
130 İşlemeler
5 Dallar
Ağaç: e65d7b1dcf
Dallar Biçim İmleri
${ item.name }
Branş ${ searchTerm } oluştur
'e65d7b1dcf'den
${ noResults }
xaringanthemer/tests/testthat/test-themes.R

48 satır
1.9KB
Ham Bahset Geçmiş 

  1. context("test-themes")

  2. 

  3. test_theme_file <- function(theme = "duo", theme_file = paste0(theme, ".css"), ...) {

  4.   theme_fun <- switch(

  5.     theme,

  6.     "duo" = style_duo,

  7.     "duo_accent" = style_duo_accent,

  8.     "duo_accent_inverse" = style_duo_accent_inverse,

  9.     "mono_accent" = style_mono_accent,

  10.     "mono_accent_inverse" = style_mono_accent_inverse,

  11.     "mono_dark" = style_mono_dark,

  12.     "mono_light" = style_mono_light,

  13.     "solarized_dark" = style_solarized_dark,

  14.     "solarized_light" = style_solarized_light,

  15.     "xaringan" = style_xaringan,

  16.     stop("Unknown theme")

  17.   )

  18. 

  19.   tmpfile <- tempfile()

  20. 

  21.   theme_fun(outfile = tmpfile, ...)

  22.   theme_css <- readLines(tmpfile)

  23.   # Mask package version in test files

  24.   theme_css <- sub("( \\*  Version: )[\\d.-]+", "\\1a.b.c.d.eeee", theme_css, perl = TRUE)

  25.   theme_css <- paste(theme_css, collapse = "\n")

  26.   expect_known_output(cat(theme_css), test_path("css", theme_file))

  27. }

  28. 

  29. test_that("style_duo()", test_theme_file("duo"))

  30. test_that("style_duo_accent()", test_theme_file("duo_accent"))

  31. test_that("style_duo_accent_inverse()", test_theme_file("duo_accent_inverse"))

  32. test_that("style_mono_accent()", test_theme_file("mono_accent"))

  33. test_that("style_mono_accent_inverse()", test_theme_file("mono_accent_inverse"))

  34. test_that("style_mono_dark()", test_theme_file("mono_dark"))

  35. test_that("style_mono_light()", test_theme_file("mono_light"))

  36. test_that("style_solarized_dark()", test_theme_file("solarized_dark"))

  37. test_that("style_solarized_light()", test_theme_file("solarized_light"))

  38. 

  39. test_that("header_background_auto = TRUE", {

  40.   test_theme_file("duo", "duo-header_bg.css", header_background_auto = TRUE)

  41.   test_theme_file("mono_light", "mono_light-header_bg.css", header_background_auto = TRUE)

  42.   test_theme_file("solarized_dark", "solarized_dark-header_bg.css", header_background_auto = TRUE)

  43. })

  44. 

  45. test_that("style colors are added to themes", {

  46.   test_theme_file("xaringan", colors = c('light-blue' = "#bad4ed"))

  47. })