diff --git a/DESCRIPTION b/DESCRIPTION
index dc01e08..eac6426 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -18,4 +18,4 @@ Imports: rmarkdown, knitr
 VignetteBuilder: knitr
 License: GPL (>= 2)
 Encoding: UTF-8
-RoxygenNote: 6.1.0
+RoxygenNote: 6.1.1
diff --git a/R/binb.R b/R/binb.R
index 5df279f..d432051 100644
--- a/R/binb.R
+++ b/R/binb.R
@@ -21,6 +21,7 @@
 ##' @param dev A character variable defaulting to \dQuote{pdf}.
 ##' @param df_print A character variable defaulting to \dQuote{default}.
 ##' @param fonttheme A character variable defaulting to \dQuote{default}.
+##' @param colortheme For the \sQuote{Monash} theme only. A character variable defaulting to \dQuote{monashwhite}.
 ##' @param highlight A character variable defaulting to \dQuote{tango}.
 ##' @param keep_tex A logical variable defaulting to \code{FALSE}.
 ##' @param latex_engine A character variable defaulting to \dQuote{xelatex}.
@@ -168,8 +169,7 @@ monash <- function(toc = FALSE,
                  citation_package = c("none", "natbib", "biblatex"),
                  includes = NULL,
                  md_extensions = NULL,
-                 pandoc_args = NULL,
-                 ...) {
+                 pandoc_args = NULL) {
 
     fcolortheme <- paste0("beamercolortheme",colortheme,".sty")
     for (f in c("beamerfontthememonash.sty",fcolortheme,
diff --git a/man/metropolis.Rd b/man/metropolis.Rd
index fd04c0a..d9fc064 100644
--- a/man/metropolis.Rd
+++ b/man/metropolis.Rd
@@ -26,10 +26,10 @@ iqss(toc = FALSE, slide_level = 3, incremental = FALSE,
 monash(toc = FALSE, slide_level = 2, incremental = FALSE,
   fig_width = 8, fig_height = 5, fig_crop = TRUE,
   fig_caption = TRUE, dev = "pdf", df_print = "default",
-  fonttheme = "default", highlight = "tango", keep_tex = FALSE,
-  latex_engine = "pdflatex", citation_package = c("none", "natbib",
-  "biblatex"), includes = NULL, md_extensions = NULL,
-  pandoc_args = NULL)
+  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)
 
 presento(toc = FALSE, slide_level = 2, incremental = FALSE,
   fig_width = 10, fig_height = 7, fig_crop = TRUE,
@@ -75,6 +75,8 @@ presento(toc = FALSE, slide_level = 2, incremental = FALSE,
 \item{md_extensions}{An optional character variable defaulting to \code{NULL}.}
 
 \item{pandoc_args}{An optional character variable defaulting to \code{NULL}.}
+
+\item{colortheme}{For the \sQuote{Monash} theme only. A character variable defaulting to \dQuote{monashwhite}.}
 }
 \value{
 RMarkdown content processed is returned for use by the