get_code to return concatenated code string (#976)

part of insightsengineering/teal.code#176
insightsengineering · Nov 29, 2023 · 14df20d · 14df20d
1 parent e9b3b7e
commit 14df20d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/vignettes/adding-support-for-reporting.Rmd b/vignettes/adding-support-for-reporting.Rmd
@@ -277,7 +277,7 @@ example_reporter_module <- function(label = "Example") {
           card$append_text("Module Table", "header3")
           card$append_table(table_q()[["result"]])
           card$append_text("Show R Code", "header3")
-          card$append_text(paste(teal.code::get_code(table_q()), collapse = "\n"), "verbatim")
+          card$append_text(teal.code::get_code(table_q()), "verbatim")
           if (!comment == "") {
             card$append_text("Comment", "header3")
             card$append_text(comment)