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

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