[Rd] Bug in prettyNum

[Marttila Mikko]

Dear list,

I'd like to report a bug in `prettyNum()`. When called with a numeric vector, the `replace.zero` argument is disregarded.

> prettyNum(0, zero.print = "- ", replace.zero = TRUE)
[1] "-"
Warning message:
In .format.zeros(x, zero.print, replace = replace.zero) :
  'zero.print' is truncated to fit into formatted zeros; consider 'replace=TRUE'

A character vector as input works as expected:

> prettyNum("0", zero.print = "- ", replace.zero = TRUE)
[1] "- "

Please see below a patch which I believe would fix this. I haven't tested it as I can't easily compile R from source with my setup.

Best,

Mikko

diff --git a/src/library/base/R/format.R b/src/library/base/R/format.R
index 63fef83..1afadd3 100644
--- a/src/library/base/R/format.R
+++ b/src/library/base/R/format.R
@@ -338,7 +338,7 @@ prettyNum <-
                    big.mark=big.mark, big.interval=big.interval,
                    small.mark=small.mark, small.interval=small.interval,
                    decimal.mark=decimal.mark, zero.print=zero.print,
-                   drop0trailing=drop0trailing, ...)
+                   replace.zero=replace.zero, drop0trailing=drop0trailing, ...)
     }
     ## be fast in trivial case, when all options have their default, or "match"
     nMark <- big.mark == "" && small.mark == "" && (notChar || decimal.mark == input.d.mark)


This e-mail transmission may contain confidential or legally privileged information that is intended only for the individual or entity named in the e-mail address. If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution, or reliance upon the contents of this e-mail is strictly prohibited. If you have received this e-mail transmission in error, please reply to the sender, so that they can arrange for proper delivery, and then please delete the message from your computer systems. Thank you.