use teal.reporter::code_chunk

m7pr · m7pr · commit e804ca5ae53f · 2025-03-09T17:26:02.000+01:00
diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R
@@ -1038,7 +1038,7 @@ srv_a_regression <- function(id,
         "## Plot",
         plot_r(),
         "## Source Code",
-        format_as_markdown_chunk(source_code_r()),
+        teal.reporter::code_chunk(source_code_r()),
         "## Table for testing",
         head(iris)
       )
@@ -1050,7 +1050,3 @@ srv_a_regression <- function(id,
     )
   })
 }
-
-format_as_markdown_chunk <- function(r_code) {
-  sprintf("```{r}\n%s\n```", r_code)
-}

Original file line number	Diff line number	Diff line change
`@@ -1038,7 +1038,7 @@ srv_a_regression <- function(id,`
`1038`	`1038`	`"## Plot",`
`1039`	`1039`	`plot_r(),`
`1040`	`1040`	`"## Source Code",`
`1041`		`- format_as_markdown_chunk(source_code_r()),`
	`1041`	`+ teal.reporter::code_chunk(source_code_r()),`
`1042`	`1042`	`"## Table for testing",`
`1043`	`1043`	`head(iris)`
`1044`	`1044`	`)`
`@@ -1050,7 +1050,3 @@ srv_a_regression <- function(id,`
`1050`	`1050`	`)`
`1051`	`1051`	`})`
`1052`	`1052`	`}`
`1053`		`-`
`1054`		`-format_as_markdown_chunk <- function(r_code) {`
`1055`		- sprintf("```{r}\n%s\n```", r_code)
`1056`		`-}`