Как напечатать вывод в исходной панели RStudio

Question

У меня есть функция, которая печатает требуемый вывод в R console, но я пытаюсь получить тот же вывод, что и исходный код в source pane из RStudio.

Функция выборки -

# Declare params for plumber api script----------------------------------
input <- c("A","B","C")
sample_print <- function(input){

  cat(for (i in length(input):1) {
    cat("\n#' @param",  input[i], sep =" " )
  },
  "\n#* @post /",
  sep = "")

}

sample_print(input)

output-

> sample_print(input)

#' @param C
#' @param B
#' @param A
#* @post /

Примечание - Я знаю, что это возможно copy/paste. Но у меня большой выходной текст, и я ищу выполнимый метод.

Answer 1

Вы можете сначала сохранить ваш скрипт в текстовом формате и использовать функцию sink ().Пожалуйста, обратитесь по этой ссылке https://www.statmethods.net/interface/io.html