Merge pull request #127 from NIFU-NO/dev

Minor fix to template `r x`
NIFU-NO · Nov 24, 2024 · 19b81e1 · 19b81e1
2 parents 4aa26f7 + 75567b3
commit 19b81e1
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/R/zzz.R b/R/zzz.R
@@ -259,10 +259,13 @@ if(!all(sapply(plots, is.null))) {{
 
   lapply(names(plots), function(.x) {{
     knitr::knit_child(text = c(
-      '##### `r .x',
+      '##### `r .x`',
+      '',
+      '',
       '```{{r}}',
       'library(saros)',
       'knitr::opts_template$set(fig = list(fig.height = fig_height_h_barchart2(plots[[.x]])))',
+      '',
       '```',
       '',
       '```{{r, opts.label=\\'fig\\'}}',
@@ -275,8 +278,7 @@ if(!all(sapply(plots, is.null))) {{
       'girafe(ggobj = plots[[.x]])',
       '```',
       '',
-      '`r x`',
-      ''
+      '`r x`'
       ), envir = environment(), quiet = TRUE)
   }}) |> unlist() |> cat(sep = '\\n')
 }}