r - 如何从函数内打印空行？

Question

我想编写一个函数来打印一些中间有空行的输出。使用示例，例如 surv:::print.coxph ，我看到这可以使用 cat("\n") 来完成.但是，当我在函数中尝试时，只有第一个 cat("\n")给出一个空行作为输出，而第二个则没有。下面是一个例子:

prnt.test <- function(x){
  cat("\n")
  cat(x)
  cat("\n")
  cat(x)
}

prnt.test(x="test")

# Output:

test
test

关于如何在两个 test 中打印空白行的任何想法的？

(我在 Windows 下使用 RStudio 版本 0.98.501，R 版本 3.0.2:平台:i386-w64-mingw32/i386(32 位))

非常感谢!

Answer 1

您应该两次 cat 换行符。通过写作 cat(x); cat('\n'); cat(x) , 与 x=="test"如果事实是你print("test\ntest") -- 这里只有一个换行符。

一个可能的解决方案:

prnt.test <- function(x){
   cat(x, sep="\n\n")
}
prnt.test(c("test1", "test2", "test3"))
## test1
## 
## test2
##
## test3