Fixed handling of monash colortheme option

This commit is contained in:
Rob J Hyndman 2018-11-21 21:14:39 +11:00
parent 059c91886f
commit 15eee95f9a
1 changed files with 6 additions and 2 deletions

View File

@ -161,15 +161,18 @@ monash <- function(toc = FALSE,
dev = 'pdf', dev = 'pdf',
df_print = "default", df_print = "default",
fonttheme = "default", fonttheme = "default",
colortheme = "monashwhite",
highlight = "tango", highlight = "tango",
keep_tex = FALSE, keep_tex = FALSE,
latex_engine = "pdflatex", latex_engine = "pdflatex",
citation_package = c("none", "natbib", "biblatex"), citation_package = c("none", "natbib", "biblatex"),
includes = NULL, includes = NULL,
md_extensions = NULL, md_extensions = NULL,
pandoc_args = NULL) { pandoc_args = NULL,
...) {
for (f in c("beamercolorthememonash.sty", "beamerfontthememonash.sty", fcolortheme <- paste0("beamercolortheme",colortheme,".sty")
for (f in c("beamerfontthememonash.sty",fcolortheme,
"beamerthememonash.sty", "titlepage.png", "figs/")) "beamerthememonash.sty", "titlepage.png", "figs/"))
if (!file.exists(f)) if (!file.exists(f))
file.copy(system.file("rmarkdown", "templates", "monash", "skeleton", file.copy(system.file("rmarkdown", "templates", "monash", "skeleton",
@ -191,6 +194,7 @@ monash <- function(toc = FALSE,
dev = dev, dev = dev,
df_print = df_print, df_print = df_print,
theme = "monash", theme = "monash",
colortheme = colortheme,
fonttheme = fonttheme, fonttheme = fonttheme,
highlight = highlight, highlight = highlight,
keep_tex = keep_tex, keep_tex = keep_tex,