get_code to return concatenated code string (#250)

part of insightsengineering/teal.code#176
insightsengineering · Nov 29, 2023 · b7e74c1 · b7e74c1
1 parent 1dd6c0f
commit b7e74c1
Show file tree

Hide file tree

Showing 6 changed files with 8 additions and 14 deletions.
diff --git a/R/tm_g_gh_boxplot.R b/R/tm_g_gh_boxplot.R
@@ -532,11 +532,8 @@ srv_g_boxplot <- function(id,
           card$append_text(comment)
         }
         card$append_src(
-          paste(
-            teal.code::get_code(
-              teal.code::join(create_plot(), create_table())
-            ),
-            collapse = "\n"
+          teal.code::get_code(
+            teal.code::join(create_plot(), create_table())
           )
         )
         card

diff --git a/R/tm_g_gh_correlationplot.R b/R/tm_g_gh_correlationplot.R
@@ -842,7 +842,7 @@ srv_g_correlationplot <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(paste(teal.code::get_code(plot_q()), collapse = "\n"))
+        card$append_src(teal.code::get_code(plot_q()))
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)

diff --git a/R/tm_g_gh_density_distribution_plot.R b/R/tm_g_gh_density_distribution_plot.R
@@ -446,11 +446,8 @@ srv_g_density_distribution_plot <- function(id, # nolint
           card$append_text(comment)
         }
         card$append_src(
-          paste(
-            teal.code::get_code(
-              teal.code::join(create_plot(), create_table())
-            ),
-            collapse = "\n"
+          teal.code::get_code(
+            teal.code::join(create_plot(), create_table())
           )
         )
         card

diff --git a/R/tm_g_gh_lineplot.R b/R/tm_g_gh_lineplot.R
@@ -796,7 +796,7 @@ srv_lineplot <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(paste(teal.code::get_code(plot_q()), collapse = "\n"))
+        card$append_src(teal.code::get_code(plot_q()))
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)

diff --git a/R/tm_g_gh_scatterplot.R b/R/tm_g_gh_scatterplot.R
@@ -384,7 +384,7 @@ srv_g_scatterplot <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(paste(teal.code::get_code(plot_q()), collapse = "\n"))
+        card$append_src(teal.code::get_code(plot_q()))
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)

diff --git a/R/tm_g_gh_spaghettiplot.R b/R/tm_g_gh_spaghettiplot.R
@@ -499,7 +499,7 @@ srv_g_spaghettiplot <- function(id,
           card$append_text("Comment", "header3")
           card$append_text(comment)
         }
-        card$append_src(paste(teal.code::get_code(plot_q()), collapse = "\n"))
+        card$append_src(teal.code::get_code(plot_q()))
         card
       }
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)