merge multiple screenshots

closes #41

Author: maxheld83

R/shiny2screenshot.R

@@ -212,7 +212,7 @@ format.rd_section_crowInsertSnaps <- function(x, ...) {
   paste0(
     "\\section{Screenshots from Tests}{\n",
     "\\if{html}",
-    x$value,
+    paste(x$value, collapse = "\n"),
     "\\if{latex}{Screenshots cannot be shown in this output format.}",
     "}\n"
   )

tests/testthat/_snaps/shiny2screenshot.md

@@ -73,9 +73,8 @@
       topic$get_section("crowInsertSnaps")
     Output
       \section{Screenshots from Tests}{
-      \if{html}{\figure{crow_screenshots/helpers/bins.gif}{options: width='100\%' alt=Screenshot from App}}\if{latex}{Screenshots cannot be shown in this output format.}}
-       \section{Screenshots from Tests}{
-      \if{html}{\figure{crow_screenshots/helpers/bins.gif}{options: width='100\%' alt=Screenshot from App}}\if{latex}{Screenshots cannot be shown in this output format.}}
+      \if{html}{\figure{crow_screenshots/helpers/bins.gif}{options: width='100\%' alt=Screenshot from App}}
+      {\figure{crow_screenshots/helpers/bins.gif}{options: width='100\%' alt=Screenshot from App}}\if{latex}{Screenshots cannot be shown in this output format.}}
        
 
 # snaps2fig and friends work: writes out markdown syntax