如何在RStudio的“源”窗格中打印输出

Question

我有一个函数可以在R console中打印所需的输出，但是我正在尝试的是在source pane的{​​{1}}中获得与源代码相同的输出。

示例功能-

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)

注意-我知道可以> sample_print(input) #' @param C #' @param B #' @param A #* @post / 使用它。但是，我的输出文本很大，我正在寻找一种可行的方法。

Answer 1

您可以先将脚本保存为文本格式，然后使用sink（）函数。 请参考此链接 https://www.statmethods.net/interface/io.html