From 15eee95f9ad6eaab0456ffce72cda3c2599cc316 Mon Sep 17 00:00:00 2001
From: Rob J Hyndman <robjhyndman@gmail.com>
Date: Wed, 21 Nov 2018 21:14:39 +1100
Subject: [PATCH] Fixed handling of monash colortheme option

---
 R/binb.R | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/R/binb.R b/R/binb.R
index 7f7b5d9..5df279f 100644
--- a/R/binb.R
+++ b/R/binb.R
@@ -161,15 +161,18 @@ monash <- function(toc = FALSE,
                  dev = 'pdf',
                  df_print = "default",
                  fonttheme = "default",
+                 colortheme = "monashwhite",
                  highlight = "tango",
                  keep_tex = FALSE,
                  latex_engine = "pdflatex",
                  citation_package = c("none", "natbib", "biblatex"),
                  includes = 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/"))
         if (!file.exists(f))
             file.copy(system.file("rmarkdown", "templates", "monash", "skeleton",
@@ -191,6 +194,7 @@ monash <- function(toc = FALSE,
                                    dev = dev,
                                    df_print = df_print,
                                    theme = "monash",
+                                   colortheme = colortheme,
                                    fonttheme = fonttheme,
                                    highlight = highlight,
                                    keep_tex = keep_tex,