如何在函数内打印空白行？

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(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