From 8f40958d1895e7657d3c03fbb496f6cd5a4aaab9 Mon Sep 17 00:00:00 2001 From: kartikeya Date: Thu, 21 Sep 2023 20:57:52 +0530 Subject: [PATCH] fixing quote issue. --- R/Renderer.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/Renderer.R b/R/Renderer.R index 3340a75a..9eeec977 100644 --- a/R/Renderer.R +++ b/R/Renderer.R @@ -128,11 +128,11 @@ Renderer <- R6::R6Class( # nolint: object_name_linter. params <- lapply(params, function(l) if (is.character(l)) shQuote(l) else l) block_content <- block$get_content() if (identical(private$report_type, "powerpoint_presentation")) { - block_content_lst <- split_text_block(block_content, 30) + block_content <- split_text_block(block_content, 30) paste( sprintf( "---\n\n```{r, echo=FALSE}\ncode_block(\n%s)\n```\n", - sQuote(block_content_lst, q = FALSE) + shQuote(block_content, type = "cmd") ), collapse = "\n\n" )