increase pandoc stack size to 512 and allow override via option

kirill533 · Jun 29, 2015 · 259bc3c · 259bc3c
1 parent 3029e6c
commit 259bc3c
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/pandoc.R b/R/pandoc.R
@@ -36,8 +36,7 @@ pandoc_self_contained_html <- function(input, output) {
     output = output,
     options = c(
       "--self-contained",
-      "--template", template,
-      "+RTS", "-K64m", "-RTS"
+      "--template", template
     )
   )
 
@@ -79,6 +78,10 @@ pandoc_convert <- function(input,
   # additional command line options
   args <- c(args, options)
 
+  # set pandoc stack size
+  stack_size <- getOption("pandoc.stack.size", default = "512m")
+  args <- c(c("+RTS", paste0("-K", stack_size), "-RTS"), args)
+
   # build the conversion command
   command <- paste(quoted(pandoc()), paste(quoted(args), collapse = " "))