r - 设置打印的默认小数位数

Question

我正在运行代码以生成输出，我希望所有输出都以 1 个小数位打印。然而，代码使用了我通常使用的函数，我不想在这些函数中指定打印输出是四舍五入的。

这个问题的答案Formatting Decimal places in R建议使用 options(digits=2)或 round(x, digits=2) .

第一个选项是通用设置，非常适合舍入 1.234至 1.2但会打印 12.345如 12
如果放在函数中，第二个选项会起作用，但我不想碰它们。这个一般怎么设置？

Answer 1

你可以这样做:

print <- function(x, ...) {
    if (is.numeric(x)) base::print(round(x, digits=2), ...) 
    else base::print(x, ...)
}