From 634e055b258edd492180fbcfd15664a3f4b7263e Mon Sep 17 00:00:00 2001 From: Francois Michonneau Date: Fri, 1 Jul 2016 14:08:58 -0400 Subject: [PATCH] add function knitr_fig_path --- bin/chunk-options.R | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/bin/chunk-options.R b/bin/chunk-options.R index 5836973..d956f60 100644 --- a/bin/chunk-options.R +++ b/bin/chunk-options.R @@ -8,6 +8,18 @@ library("knitr") fix_fig_path <- function(pth) file.path("..", pth) + +## We set the path for the figures globally below, so if we want to +## customize it for individual episodes, we can append a prefix to the +## global path. For instance, if we call knitr_fig_path("01-") in the +## first episode of the lesson, it will generate the figures in +## `fig/rmd-01-` +knitr_fig_path <- function(prefix) { + new_path <- paste0(opts_chunk$get("fig.path"), + prefix) + opts_chunk$set(fig.path = new_path) +} + ## We use the rmd- prefix for the figures generated by the lssons so ## they can be easily identified and deleted by `make clean-rmd`. The ## working directory when the lessons are generated is the root so the