mirror of
https://github.com/eddelbuettel/binb
synced 2024-12-22 12:39:58 +01:00
Fixed handling of monash colortheme option
This commit is contained in:
parent
059c91886f
commit
15eee95f9a
8
R/binb.R
8
R/binb.R
@ -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,
|
||||||
|
Loading…
x
Reference in New Issue
Block a user