added out.width argument

scripts/RSnakeChunks/R/index_figure.R

@@ -2,16 +2,20 @@
 #' @author Jacques van Helden
 #' @param name name of the chunk
 #' @param file file continaing the figure
+#' @param out.width="75%" figure width, relative to page width
 #' @param index.text=NULL if spcified, the chunk will be appended to it
-#' @param chunk_opt=", eval=TRUE" a string specifying one or more options to append to the chunk declaration line. Must start with a comma. 
+#' @param chunk_opt=", eval=TRUE" a string specifying one or more options to append to the chunk declaration line. Must start with a comma.
 #' @export
-index.figure <- function(name, file, index.text = NULL, chunk.opt = ", eval=TRUE") {
+index.figure <- function(name, file,
+                         index.text = NULL,
+                         out.width="75%",
+                         chunk.opt = ", eval=TRUE") {
   fig.chunk <-  paste(sep = "",
                       "
-```{r fig='", name, "' ", chunk.opt, " }
+```{r fig='", name, "', out.width = '", out.width, "'", chunk.opt, " }
 knitr::include_graphics(path = '", file, "', auto_pdf = TRUE)
-```
-                     ")
+```")
+
   if (is.null(index.text)) {
     return(fig.chunk)
   } else {