229 report echo code for plotting and displaying it within the R code…

… in a PDF file. (#230)

fixes: #229

I added `\newpage` before the R code to ensure that all R code is placed
on a new page in the PDF. Additionally, I set` echo = FALSE` to prevent
the display of the code within picture blocks."

R/Renderer.R

@@ -148,14 +148,14 @@ Renderer <- R6::R6Class( # nolint: object_name_linter.
         block_content_list <- split_text_block(block$get_content(), 30)
         paste(
           sprintf(
-            "---\n\n```{r, echo=FALSE}\ncode_block(\n%s)\n```\n",
+            "\\newpage\n\n---\n\n```{r, echo=FALSE}\ncode_block(\n%s)\n```\n",
             shQuote(block_content_list, type = "cmd")
           ),
           collapse = "\n\n"
         )
       } else {
         sprintf(
-          "--- \n\n```{r, %s}\n%s\n```\n",
+          "\\newpage\n\n--- \n\n```{r, %s}\n%s\n```\n",
           paste(names(params), params, sep = "=", collapse = ", "),
           block$get_content()
         )
@@ -171,7 +171,7 @@ Renderer <- R6::R6Class( # nolint: object_name_linter.
       title <- block$get_title()
       if (length(title)) params["fig.cap"] <- shQuote(title)
       sprintf(
-        "\n```{r, %s}\nknitr::include_graphics(path = '%s')\n```\n",
+        "\n```{r, echo = FALSE, %s}\nknitr::include_graphics(path = '%s')\n```\n",
         paste(names(params), params, sep = "=", collapse = ", "),
         basename_pic
       )