1# exponents correct in presence of NA 2 3 Code 4 format(split_decimal_bw(c(NA, 1e-05)), justify = "right") 5 Output 6 [1] "NA " " 1e-5" 7 8# output test 9 10 Code 11 pillar(add_special(10^c(-9, -6, 3, 9)), width = 10) 12 Output 13 <pillar> 14 <dbl> 15 1e-9 16 1e-6 17 1e+3 18 1e+9 19 NA 20 -Inf 21 Inf 22 Code 23 pillar(add_special((10^c(3, 9, 15, 22)) * c(-1, 1)), width = 10) 24 Output 25 <pillar> 26 <dbl> 27 -1e 3 28 1e 9 29 -1e15 30 1e22 31 NA 32 -Inf 33 Inf 34 Code 35 pillar(add_special(1.25 * 10^(-309:-319)), width = 10) 36 Output 37 NULL 38 39