R：R 控制台中的中心输出文本（R studio 和 R.app）答案

【问题标题】：R: Center output text in R console (R studio and R.app)R：R 控制台中的中心输出文本（R studio 和 R.app）
【发布时间】：2014-11-14 03:34:09
【问题描述】：

我正在使用source() 命令执行一些 R 脚本，然后刷新控制台。我希望在控制台中看到的唯一内容是一些带有脚本进度报告的文本，之后显示一些进度条，所有其余代码都被隐藏。我正在使用cat() 函数手动添加文本，将我的进度报告打印到控制台，如下所示。

cat("\014")
cat("  =====================================\n")
cat("  ========== PROGRESS REPORT ==========\n")
cat("  =====================================\n")
cat("\n")

# progress bar implementation

我想知道的是：有没有办法让文本在控制台中间自动居中，以便在调整控制台窗口大小时动态调整？我正在寻找一种既适用于 R Studio 又适用于 Windows 和 Mac OS X 的 baseR 的方法。

【问题讨论】：

标签： r text console center cat

【解决方案1】：

你可以试试这样的。这可能会或可能不会完全居中，这取决于当前的控制台宽度（如果在p 的计算中出现奇数，则将其固定）。

centerText <- function() {
    width <- getOption("width")
    out <- "=======================================\n"
    mid <- "=========== PROGRESS REPORT ===========\n"
    ws <- rep(" ", floor((width - nchar(out))/2))
    cat(ws, out, ws, mid, ws, out, sep = "")
}

centerText()

它适用于 RStudio，但我不确定它是否适用于普通的 R 控制台。可能需要一些调整。

【讨论】：