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.
89 İşlemeler
5 Dallar
Ağaç: bceb3d404e
Dallar Biçim İmleri
${ item.name }
Branş ${ searchTerm } oluştur
'bceb3d404e'den
${ noResults }
xaringanthemer/R/theme_settings.R

321 satır
19KB
Ham Bahset Geçmiş 

  1. template_variables <- tibble::tribble(

  2.   ~ variable, ~ default, ~ element, ~ description

  3.   , "text_color", "#000", "body", "Text Color"

  4.   , "header_color", "#000", "h1, h2, h3", "Header Color"

  5.   , "background_color", "#FFF", ".remark-slide-content", "Slide Background Color"

  6.   , "link_color", "rgb(249, 38, 114)", "a, a > code", "Link Color"

  7.   , "text_bold_color", NULL, "strong", "Bold Text Color"

  8.   , "text_slide_number_color", "{inverse_background_color}", ".remark-slide-number", "Slide Number Color"

  9.   , "padding", "1em 4em 1em 4em", ".remark-slide-content", "Slide Padding in `top right [bottom left]` format"

  10.   , "background_image", NULL, ".remark-slide-content", "Background image applied to each *and every* slide. Set `title_slide_background_image = \"none\"` to remove the background image from the title slide."

  11.   , "background_size", NULL, ".remark-slide-content", "Background image size, requires `background_image` to be set. If `background_image` is set, `background_size` will default to `cover` so the backround fills the screen. If both `background_image` and `background_position` are set, will default to 100 percent."

  12.   , "background_position", NULL, ".remark-slide-content", "Background image position, requires `background_image` to be set, and it is recommended to adjust `background_size`."

  13.   , "code_highlight_color", "rgba(255,255,0,0.5)", ".remark-code-line-highlighted", "Code Line Highlight"

  14.   , "code_inline_color", "#000", ".remark-inline-code", "Inline Code Color"

  15.   , "code_inline_background_color", NULL, ".remark-inline-code", "Inline Code Background Color"

  16.   , "code_inline_font_size", "1em", ".remark-inline-code", "Inline Code Text Font Size"

  17.   , "inverse_background_color", "#272822", ".inverse", "Inverse Background Color"

  18.   , "inverse_text_color", "#d6d6d6", ".inverse", "Inverse Text Color"

  19.   , "inverse_text_shadow", "{FALSE}", ".inverse", "Enables Shadow on text of inverse slides"

  20.   , "inverse_header_color", "#f3f3f3", ".inverse h1, .inverse h2, .inverse h3", "Inverse Header Color"

  21.   , "title_slide_text_color", "{inverse_text_color}", ".title-slide", "Title Slide Text Color"

  22.   , "title_slide_background_color", "{inverse_background_color}", ".title-slide", "Title Slide Background Color"

  23.   , "title_slide_background_image", NULL, ".title-slide", "Title Slide Background Image URL"

  24.   , "title_slide_background_size", NULL, ".title-slide", "Title Slide Background Image Size, defaults to \"cover\" if background image is set"

  25.   , "title_slide_background_position", NULL, ".title-slide", "Title Slide Background Image Position"

  26.   , "footnote_color", NULL, ".footnote", "Footnote text color (if `NA`, then it will be the same color as `text_color`)"

  27.   , "footnote_font_size", "0.9em", ".footnote", "Footnote font size"

  28.   , "footnote_position_bottom", "3em", ".footnote", "Footnote location from bottom of screen"

  29.   , "left_column_subtle_color", "#777", ".left-column h2, .left-column h3", "Left Column Text (not last)"

  30.   , "left_column_selected_color", "#000", ".left-column h2:last-of-type, .left-column h3:last-child", "Left Column Current Selection"

  31.   , "blockquote_left_border_color", "lightgray", "blockquote", "Blockquote Left Border Color"

  32.   , "table_border_color", "#666", "table: border-top, border-bottom", "Table top/bottom border"

  33.   , "table_row_border_color", "#ddd", "table thead th: border-bottom", "Table row inner bottom border"

  34.   , "table_row_even_background_color", "#eee", "thead, tfoot, tr:nth-child(even)", "Table Even Row Background Color"

  35.   , "text_font_size", "20px", ".remark-slide-content", "Slide Body Text Font Size"

  36.   , "header_h1_font_size", "55px", ".remark-slide-content h1", "h1 Header Text Font Size"

  37.   , "header_h2_font_size", "45px", ".remark-slide-content h2", "h2 Header Text Font Size"

  38.   , "header_h3_font_size", "35px", ".remark-slide-content h3", "h3 Header Text Font Size"

  39.   , "text_slide_number_font_size", "0.9em", ".remark-slide-number", "Slide Number Text Font Size"

  40.   , "text_font_google", NULL, "body", "Use `google_font()` to specify body font"

  41.   , "text_font_family", "'Droid Serif'", "body", "Body Text Font Family"

  42.   , "text_font_weight", "normal", "body", "Body Text Font Weight"

  43.   , "text_font_url", "https://fonts.googleapis.com/css?family=Droid+Serif:400,700,400italic", "@import url()", "Body Text Font URL(s)"

  44.   , "text_font_family_fallback", "'Palatino Linotype', 'Book Antiqua', Palatino, 'Microsoft YaHei', 'Songti SC'", "body", "Body Text Font Fallbacks"

  45.   , "text_font_base", "serif", "body", "Body Text Base Font (Total Failure Fallback)"

  46.   , "header_font_google", NULL, "body", "Use `google_font()` to specify header font"

  47.   , "header_font_family", "'Yanone Kaffeesatz'", "h1, h2, h3", "Header Font Family"

  48.   , "header_font_weight", "normal", "h1, h2, h3", "Header Font Weight"

  49.   , "header_font_url", "https://fonts.googleapis.com/css?family=Yanone+Kaffeesatz", "@import url", "Header Font URL"

  50.   , "code_font_google", NULL, "body", "Use `google_font()` to specify code font"

  51.   , "code_font_family", "'Source Code Pro'", ".remark-code, .remark-inline-code", "Code Font Family"

  52.   , "code_font_size", "0.9em", ".remark-inline", "Code Text Font Size"

  53.   , "code_font_url", "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700", "@import url", "Code Font URL"

  54.   , "code_font_family_fallback", "'Lucida Console', Monaco", ".remark-code, .remark-inline-code", "Code Font Fallback"

  55. )

  56. 

  57. set_default <- function(tv, ...) {

  58.   vars <- c(...)

  59.   for (var in names(vars)) {

  60.     tv[tv$variable == var, 'default'] <- vars[var]

  61.   }

  62.   tv

  63. }

  64. 

  65. template_mono_light <- tibble::tribble(

  66.   ~ variable, ~ default, ~ element, ~ description

  67.   , "base_color", "#23395b", "multiple", "Monotone base color, works best with a strong color"

  68.   , "white_color", "{lighten_color(base_color, 0.9)}", "multiple", "Brightest color used, default is a very light version of `base_color`"

  69.   , "black_color", "{darken_color(base_color, 0.3)}", "multiple", "Darkest color used, default is a very dark, version of `base_color`"

  70. )

  71. template_mono_light <- do.call('rbind', list(template_mono_light, template_variables))

  72. template_mono_light <- set_default(

  73.   template_mono_light,

  74.   text_color                      = "{black_color}",

  75.   header_color                    = "{base_color}",

  76.   background_color                = "{white_color}",

  77.   link_color                      = "{base_color}",

  78.   text_bold_color                 = "{base_color}",

  79.   text_slide_number_color         = "{base_color}",

  80.   code_inline_color               = "{base_color}",

  81.   inverse_background_color        = "{base_color}",

  82.   inverse_text_color              = "{white_color}",

  83.   inverse_header_color            = "{white_color}",

  84.   left_column_subtle_color        = "{apply_alpha(base_color, 0.6)}",

  85.   left_column_selected_color      = "{base_color}",

  86.   blockquote_left_border_color    = "{apply_alpha(base_color, 0.5)}",

  87.   table_row_even_background_color = "{lighten_color(base_color, 0.8)}")

  88. 

  89. template_mono_dark <- tibble::tribble(

  90.   ~ variable, ~ default, ~ element, ~ description

  91.   , "base_color", "#cbf7ed", "multiple", "Monotone Base Color, works best with a light color."

  92.   , "white_color", "{lighten_color(base_color, 0.8)}", "multiple", "Brightest color used, default is a very light version of `base_color`"

  93.   , "black_color", "{darken_color(base_color, 0.85)}", "multiple", "Darkest color used, default is a very dark, version of `base_color`"

  94. )

  95. template_mono_dark <- do.call('rbind', list(template_mono_dark, template_variables))

  96. template_mono_dark <- set_default(

  97.   template_mono_dark,

  98.   text_color                      = "{white_color}",

  99.   header_color                    = "{base_color}",

  100.   background_color                = "{black_color}",

  101.   link_color                      = "{base_color}",

  102.   text_bold_color                 = "{base_color}",

  103.   text_slide_number_color         = "{base_color}",

  104.   code_inline_color               = "{base_color}",

  105.   inverse_background_color        = "{base_color}",

  106.   inverse_text_color              = "{black_color}",

  107.   inverse_header_color            = "{black_color}",

  108.   left_column_subtle_color        = "{apply_alpha(base_color, 0.6)}",

  109.   left_column_selected_color      = "{base_color}",

  110.   blockquote_left_border_color    = "{apply_alpha(base_color, 0.5)}",

  111.   table_row_even_background_color = "{darken_color(base_color, 0.7)}")

  112. 

  113. template_mono_accent <- tibble::tribble(

  114.   ~ variable, ~ default, ~ element, ~ description

  115.   , "base_color", "#43418A", "multiple", "Monotone Base Color, works best with a strong color."

  116.   , "white_color", "#FFFFFF", "multiple", "Brightest color used"

  117.   , "black_color", "#272822", "multiple", "Darkest color used"

  118. )

  119. template_mono_accent <- do.call('rbind', list(template_mono_accent, template_variables))

  120. template_mono_accent <- set_default(

  121.   template_mono_accent,

  122.   text_color                      = "{black_color}",

  123.   header_color                    = "{base_color}",

  124.   background_color                = "{white_color}",

  125.   link_color                      = "{base_color}",

  126.   text_bold_color                 = "{base_color}",

  127.   text_slide_number_color         = "{base_color}",

  128.   code_inline_color               = "{base_color}",

  129.   inverse_background_color        = "{base_color}",

  130.   inverse_text_color              = "{white_color}",

  131.   inverse_header_color            = "{white_color}",

  132.   left_column_subtle_color        = "{apply_alpha(base_color, 0.6)}",

  133.   left_column_selected_color      = "{base_color}",

  134.   blockquote_left_border_color    = "{apply_alpha(base_color, 0.5)}",

  135.   table_row_even_background_color = "{lighten_color(base_color, 0.7)}")

  136. 

  137. template_mono_accent_inverse <- tibble::tribble(

  138.   ~ variable, ~ default, ~ element, ~ description

  139.   , "base_color", "#3C989E", "multiple", "Monotone Base Color, works best with a light color."

  140.   , "white_color", "#FFFFFF", "multiple", "Brightest color used, default is a very light version of `base_color`"

  141.   , "black_color", "{darken_color(base_color, 0.9)}", "multiple", "Darkest color used, default is a very dark, version of `base_color`"

  142. )

  143. template_mono_accent_inverse <- do.call('rbind', list(template_mono_accent_inverse, template_variables))

  144. template_mono_accent_inverse <- set_default(

  145.   template_mono_accent_inverse,

  146.   text_color                      = "{white_color}",

  147.   header_color                    = "{base_color}",

  148.   background_color                = "{black_color}",

  149.   link_color                      = "{base_color}",

  150.   text_bold_color                 = "{base_color}",

  151.   text_slide_number_color         = "{base_color}",

  152.   code_inline_color               = "{base_color}",

  153.   inverse_background_color        = "{base_color}",

  154.   inverse_text_color              = "{black_color}",

  155.   inverse_header_color            = "{black_color}",

  156.   left_column_subtle_color        = "{apply_alpha(base_color, 0.6)}",

  157.   left_column_selected_color      = "{base_color}",

  158.   blockquote_left_border_color    = "{apply_alpha(base_color, 0.5)}",

  159.   table_row_even_background_color = "{darken_color(base_color, 0.7)}")

  160. 

  161. template_duo_light <- tibble::tribble(

  162.   ~ variable, ~ default, ~ element, ~ description

  163.   , "primary_color", "#1F4257", "multiple", "Duotone Secondary Color"

  164.   , "secondary_color", "#F97B64", "multiple", "Duotone Primary Color"

  165.   , "white_color", "{lighten_color(primary_color, 0.99)}", "multiple", "Brightest color used, default is a very light version of `primary_color`"

  166.   , "black_color", "{darken_color(secondary_color, 0.9)}", "multiple", "Darkest color used, default is a very dark version of `secondary_color`"

  167. )

  168. template_duo_light <- do.call('rbind', list(template_duo_light, template_variables))

  169. template_duo_light <- set_default(

  170.   template_duo_light,

  171.   text_color                      = "{black_color}",

  172.   header_color                    = "{primary_color}",

  173.   background_color                = "{white_color}",

  174.   link_color                      = "{secondary_color}",

  175.   text_bold_color                 = "{secondary_color}",

  176.   text_slide_number_color         = "{primary_color}",

  177.   code_inline_color               = "{secondary_color}",

  178.   inverse_background_color        = "{primary_color}",

  179.   inverse_text_color              = "{secondary_color}",

  180.   inverse_header_color            = "{secondary_color}",

  181.   left_column_subtle_color        = "{apply_alpha(secondary_color, 0.6)}",

  182.   left_column_selected_color      = "{secondary_color}",

  183.   blockquote_left_border_color    = "{apply_alpha(secondary_color, 0.5)}",

  184.   table_row_even_background_color = "{lighten_color(secondary_color, 0.7)}")

  185. 

  186. template_duo <- tibble::tribble(

  187.   ~ variable, ~ default, ~ element, ~ description

  188.   , "primary_color", "#1F4257", "multiple", "Duotone Primary Color"

  189.   , "secondary_color", "#F97B64", "multiple", "Duotone Secondary Color"

  190. )

  191. template_duo <- do.call('rbind', list(template_duo, template_variables))

  192. template_duo <- set_default(

  193.   template_duo,

  194.   text_color                      = "{choose_dark_or_light(primary_color, darken_color(primary_color, 0.9), lighten_color(secondary_color, 0.99))}",

  195.   header_color                    = "{secondary_color}",

  196.   background_color                = "{primary_color}",

  197.   link_color                      = "{secondary_color}",

  198.   text_bold_color                 = "{secondary_color}",

  199.   text_slide_number_color         = "{text_color}",

  200.   code_inline_color               = "{secondary_color}",

  201.   inverse_background_color        = "{secondary_color}",

  202.   inverse_text_color              = "{primary_color}",

  203.   inverse_header_color            = "{primary_color}",

  204.   title_slide_text_color          = "{secondary_color}",

  205.   title_slide_background_color    = "{primary_color}",

  206.   left_column_subtle_color        = "{apply_alpha(secondary_color, 0.6)}",

  207.   left_column_selected_color      = "{secondary_color}",

  208.   blockquote_left_border_color    = "{apply_alpha(secondary_color, 0.5)}",

  209.   table_row_even_background_color = "{lighten_color(primary_color, 0.3)}")

  210. 

  211. template_duo_accent <- tibble::tribble(

  212.   ~ variable, ~ default, ~ element, ~ description

  213.   , "primary_color", "#006747", "multiple", "Duotone Primary Color"

  214.   , "secondary_color", "#CFC493", "multiple", "Duotone Secondary Color"

  215.   , "white_color", "#FFFFFF", "multiple", "Brightest color used"

  216.   , "black_color", "#000000", "multiple", "Darkest color used"

  217. )

  218. template_duo_accent <- do.call('rbind', list(template_duo_accent, template_variables))

  219. template_duo_accent <- set_default(

  220.   template_duo_accent,

  221.   text_color                      = "{black_color}",

  222.   header_color                    = "{primary_color}",

  223.   background_color                = "{white_color}",

  224.   link_color                      = "{choose_dark_or_light(secondary_color, primary_color, secondary_color)}",

  225.   text_bold_color                 = "{choose_dark_or_light(secondary_color, primary_color, secondary_color)}",

  226.   text_slide_number_color         = "{primary_color}",

  227.   code_inline_color               = "{choose_dark_or_light(secondary_color, primary_color, secondary_color)}",

  228.   inverse_background_color        = "{secondary_color}",

  229.   inverse_text_color              = "{choose_dark_or_light(secondary_color, black_color, white_color)}",

  230.   inverse_header_color            = "{choose_dark_or_light(secondary_color, black_color, white_color)}",

  231.   title_slide_background_color    = "{primary_color}",

  232.   title_slide_text_color          = "{choose_dark_or_light(primary_color, black_color, white_color)}",

  233.   left_column_subtle_color        = "{apply_alpha(primary_color, 0.6)}",

  234.   left_column_selected_color      = "{primary_color}",

  235.   blockquote_left_border_color    = "{apply_alpha(secondary_color, 0.5)}",

  236.   table_row_even_background_color = "{lighten_color(secondary_color, 0.3)}")

  237. 

  238. template_duo_accent_inverse <- set_default(

  239.   template_duo_accent,

  240.   text_color                      = "{white_color}",

  241.   header_color                    = "{primary_color}",

  242.   background_color                = "{black_color}",

  243.   link_color                      = "{choose_dark_or_light(secondary_color, secondary_color, primary_color)}",

  244.   text_bold_color                 = "{choose_dark_or_light(secondary_color, secondary_color, primary_color)}",

  245.   text_slide_number_color         = "{primary_color}",

  246.   code_inline_color               = "{choose_dark_or_light(secondary_color, secondary_color, primary_color)}",

  247.   inverse_background_color        = "{secondary_color}",

  248.   inverse_text_color              = "{choose_dark_or_light(secondary_color, black_color, white_color)}",

  249.   inverse_header_color            = "{choose_dark_or_light(secondary_color, black_color, white_color)}",

  250.   title_slide_background_color    = "{primary_color}",

  251.   title_slide_text_color          = "{choose_dark_or_light(primary_color, black_color, white_color)}",

  252.   left_column_subtle_color        = "{apply_alpha(primary_color, 0.6)}",

  253.   left_column_selected_color      = "{primary_color}",

  254.   blockquote_left_border_color    = "{apply_alpha(secondary_color, 0.5)}",

  255.   table_row_even_background_color = "{darken_color(choose_dark_or_light(primary_color, secondary_color, primary_color), 0.3)}")

  256. 

  257. solarized <- list(

  258.   "base03"  = "#002b36",

  259.   "base02"  = "#073642",

  260.   "base01"  = "#586e75",

  261.   "base00"  = "#657b83",

  262.   "base0"   = "#839496",

  263.   "base1"   = "#93a1a1",

  264.   "base2"   = "#eee8d5",

  265.   "base3"   = "#fdf6e3",

  266.   "yellow"  = "#b58900",

  267.   "orange"  = "#cb4b16",

  268.   "red"     = "#dc322f",

  269.   "magenta" = "#d33682",

  270.   "violet"  = "#6c71c4",

  271.   "blue"    = "#268bd2",

  272.   "cyan"    = "#2aa198",

  273.   "green"   = "#859900")

  274. 

  275. 

  276. template_solarized_light <- set_default(

  277.   template_variables,

  278.   text_color                      = solarized$base00,

  279.   header_color                    = solarized$red,

  280.   background_color                = solarized$base3,

  281.   link_color                      = solarized$yellow,

  282.   text_bold_color                 = solarized$magenta,

  283.   text_slide_number_color         = solarized$base1,

  284.   code_highlight_color            = "#268bd240", #xaringanthemer:::apply_alpha(solarized$blue, 0.25)

  285.   code_inline_color               = solarized$violet,

  286.   inverse_background_color        = solarized$base03,

  287.   inverse_text_color              = solarized$base3,

  288.   inverse_header_color            = "{inverse_text_color}",

  289.   title_slide_text_color          = "{inverse_text_color}",

  290.   title_slide_background_color    = "{inverse_background_color}",

  291.   left_column_subtle_color        = solarized$base1,

  292.   left_column_selected_color      = solarized$base01,

  293.   blockquote_left_border_color    = solarized$orange,

  294.   table_border_color              = solarized$base0,

  295.   table_row_border_color          = solarized$base0,

  296.   table_row_even_background_color = solarized$base2

  297. )

  298. 

  299. template_solarized_dark <- set_default(

  300.   template_variables,

  301.   text_color                      = solarized$base0,

  302.   header_color                    = solarized$red,

  303.   background_color                = solarized$base03,

  304.   link_color                      = solarized$yellow,

  305.   text_bold_color                 = solarized$magenta,

  306.   text_slide_number_color         = solarized$base01,

  307.   code_highlight_color            = "#268bd240", #xaringanthemer:::apply_alpha(solarized$blue, 0.25)

  308.   code_inline_color               = solarized$violet,

  309.   inverse_background_color        = solarized$base3,

  310.   inverse_text_color              = solarized$base03,

  311.   inverse_header_color            = "{inverse_text_color}",

  312.   title_slide_text_color          = "{inverse_text_color}",

  313.   title_slide_background_color    = "{inverse_background_color}",

  314.   left_column_subtle_color        = solarized$base01,

  315.   left_column_selected_color      = solarized$base1,

  316.   blockquote_left_border_color    = solarized$orange,

  317.   table_border_color              = solarized$base00,

  318.   table_row_border_color          = solarized$base00,

  319.   table_row_even_background_color = solarized$base02

  320. )