prettyNum digits=0 not compatible with scientific notation

On Mar 22, 2019, at 7:25 PM, peter dalgaard <pdalgd at gmail.com> wrote:

On 22 Mar 2019, at 18:07 , Martin Maechler <maechler at stat.math.ethz.ch> wrote:

gives (on Linux R 3.5.3, Fedora 28)

     d=10         d=7          d=2      d=1     d=0       
[1,] "123456"     "123456"     "123456" "1e+05" "%#4.0-1e"
[2,] "12345.6"    "12345.6"    "12346"  "12346" "%#4.0-1e"
[3,] "1234.56"    "1234.56"    "1235"   "1235"  "1235"    
[4,] "123.456"    "123.456"    "123"    "123"   "123"     
[5,] "12.3456"    "12.3456"    "12"     "12"    "12"      
[6,] "1.23456"    "1.23456"    "1.2"    "1"     "1"       
[7,] "0.123456"   "0.123456"   "0.12"   "0.1"   "0"       
[8,] "0.0123456"  "0.0123456"  "0.012"  "0.01"  "0"       
[9,] "0.00123456" "0.00123456" "0.0012" "0.001" "0"       

but probably looks better on Mac

Yes (3.5.1 though)

nn <- 123456*10^(0:-8); dd <- c(10, 7, 2:0); names(dd) <- paste0("d=",dd)
sapply(dd, function(dig) sapply(nn, format, digits=dig))

     d=10         d=7          d=2      d=1     d=0     
[1,] "123456"     "123456"     "123456" "1e+05" "1.e+05"
[2,] "12345.6"    "12345.6"    "12346"  "12346" "1.e+04"
[3,] "1234.56"    "1234.56"    "1235"   "1235"  "1235"  
[4,] "123.456"    "123.456"    "123"    "123"   "123"   
[5,] "12.3456"    "12.3456"    "12"     "12"    "12"    
[6,] "1.23456"    "1.23456"    "1.2"    "1"     "1"     
[7,] "0.123456"   "0.123456"   "0.12"   "0.1"   "0"     
[8,] "0.0123456"  "0.0123456"  "0.012"  "0.01"  "0"     
[9,] "0.00123456" "0.00123456" "0.0012" "0.001" "0"  

nn <- 123456*10^(0:-8); dd <- c(10, 7, 2:0); names(dd) <- paste0("d=",dd)
sapply(dd, function(dig) sapply(nn, format, digits=dig))