remove code_output

NAMESPACE

@@ -41,7 +41,6 @@ export(add_card_button_ui)
 export(as.teal_report)
 export(as_yaml_auto)
 export(code_chunk)
-export(code_output)
 export(doc)
 export(download_report_button_srv)
 export(download_report_button_ui)

R/doc.R

@@ -185,7 +185,6 @@ edit_doc <- function(x, modify = NULL, append = NULL, after = length(x)) {
 #' class(my_chunk)
 #' attributes(my_chunk)$param
 #' @export
-#' @rdname code_output
 code_chunk <- function(code, ...) {
   checkmate::assert_character(code)
   params <- list(...)
@@ -196,22 +195,6 @@ code_chunk <- function(code, ...) {
   )
 }
 
-#' Format R code as a simple Markdown code block string
-#'
-#' This function takes a character string of R code and wraps it in
-#' Markdown's triple backticks for code blocks.
-#'
-#' @param code A character string containing the R code.
-#' @return A character string representing a simple Markdown code block.
-#' @seealso [code_chunk()] for creating structured code chunk objects with options.
-#' @examples
-#' code_output("y <- rnorm(5)")
-#' @export
-#' @rdname code_output
-code_output <- function(code) {
-  sprintf("```\n%s\n```", code)
-}
-
 #' @title Keep Objects In Report
 #' @description Utility function to change behavior of `doc` elements to be
 #' kept (`keep = TRUE`) or discarded (`keep = FALSE`) from the final `.Rmd` file containing the downloaded report.

tests/testthat/test-doc.R

@@ -126,12 +126,6 @@ testthat::test_that("code_chunk creates a code_chunk object with params", {
   testthat::expect_equal(attributes(chunk)$params, list(echo = FALSE, eval = TRUE))
 })
 
-testthat::test_that("code_output formats code as markdown string", {
-  output <- code_output("x <- 1")
-  testthat::expect_type(output, "character")
-  testthat::expect_equal(output, "```\nx <- 1\n```")
-})
-
 testthat::test_that("keep_in_report sets the 'keep' attribute", {
   obj1 <- "some text"
   kept_obj1 <- keep_in_report(obj1, TRUE)