Updated moderncv output format to support other themes

niklasben · Feb 8, 2019 · 193a155 · 193a155
1 parent 13dec94
commit 193a155
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/formats.R b/R/formats.R
@@ -46,11 +46,13 @@ awesomecv <- function(...) {
 
 #' @rdname cv_formats
 #' @export
-moderncv <- function(...) {
+moderncv <- function(..., theme = c("casual", "classic", "oldstyle", "banking")) {
+  theme <- match.arg(theme)
   template <- system.file("rmarkdown", "templates", "moderncv",
     "resources", "moderncv.tex",
     package = "vitae"
   )
   copy_supporting_files("moderncv")
-  cv_document(..., template = template, citation_package = "biblatex", latex_engine = "xelatex")
+  cv_document(..., pandoc_vars = list(theme = theme),
+              template = template, citation_package = "biblatex", latex_engine = "xelatex")
 }