Update R/Renderer.R

Co-authored-by: André Veríssimo <[email protected]> Signed-off-by: kartikeya kirar <[email protected]>
insightsengineering · Sep 15, 2023 · 4a7cfa9 · 4a7cfa9
1 parent 7a8ccd5
commit 4a7cfa9
Showing 1 changed file with 11 additions and 8 deletions.
diff --git a/R/Renderer.R b/R/Renderer.R
@@ -120,14 +120,17 @@ Renderer <- R6::R6Class( # nolint: object_name_linter.
       params <- block$get_params()
       params <- lapply(params, function(l) if (is.character(l)) shQuote(l) else l)
       block_content <- block$get_content()
-      paste("### ",
-        sprintf(
-          "\n```{r, %s}\n%s\n```\n",
-          paste(names(params), params, sep = "=", collapse = ", "),
-          block_content
-        ),
-        collapse = "\n"
-      )
+    paste(
+      sep = "\n",
+      collapse = "\n",
+      "### ",
+      sprintf(
+        "```{r, %s}", paste(names(params), params, sep = "=", collapse = ", ")
+      ),
+      block_content,
+      "```",
+      ""
+    )
     },
     pictureBlock2md = function(block) {
       basename_pic <- basename(block$get_content())