Minor fix to template r x

NIFU-NO · Nov 24, 2024 · 75567b3 · 75567b3
1 parent c73000f
commit 75567b3
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')
 }}