如何在R中打印多行AESTracks（或任何符号）？

我只想在运行代码时打印多行aestrick符号。我可以使用

print（strrep（“*”，20））

打印一行20个

*

，但是如何在不使用任何循环的情况下打印其中的20行呢？

文字“我如何重复”如下所示：

rep（strrep（“*”，5），4）
# [1] "*****" "*****" "*****" "*****"

如果您打算提前在控制台上按顺序打印所有这些内容，则

粘贴（rep（strrep（“*”，5），4），折叠=“\n”） #[1]“******\n******\n******\n*****” 类别（粘贴（rep（strrep（“*”，5），4），collapse=“\n”）） # ***** # ***** # ***** # ***** 其中后一个

cat

s直接对其进行操作。请注意，

cat

不会添加最后一行换行符；如果需要，请执行

cat（…，“\n”）

您可以考虑使用<代码>消息>代码>而不是<代码> CAT<代码>，但是：

消息（粘贴（rep（strrep（“*”，5），4），collapse=“\n”））
# *****
# *****
# *****
# *****

---

它不像

cat

那样需要尾部换行符（尽管可以使用

appendLF=FALSE

抑制尾部LF）。这允许任何使用函数的人使用

suppressMessages（…）

来抑制这些消息，这在函数作者中通常是一个很好的考虑因素。

这可能会有所帮助。该函数将打印任意数量的行

  fun<-function(x){
  rep(paste(strrep("*",20),sep = "\n"),x)}

  fun(20)

---

希望这能有所帮助。

rep（strrep（“*”，20），20）

提供20个字符串，每个字符串包含20个字符。如果您需要在单独的行中使用它们，那么

cat（粘贴（rep（strrep（“*”，20），20），collapse=“\n”）

？@r2evans这是可行的。谢谢

rep(paste(strrep("*",20),sep = "\n"),20)