Imperfect padding of distance between % and n

[sfirke]

Look at the right-most column here. I guess I never had test coverage for this case? This is from the dev branch where I'm redoing tabyl and the adornments.

> t2 <- mtcars %>%
+     tabyl(carb, cyl)
> 
> t2
  carb 4 6 8
1    1 5 2 0
2    2 6 0 4
3    3 0 0 3
4    4 0 4 6
5    6 0 1 0
6    8 0 0 1

 
t2 %>%
+     adorn_totals("col") %>%
+     adorn_percentages("row") %>%
+     adorn_pct_formatting(digits = 2) %>%
+     adorn_ns()
  carb          4           6           8        Total
1    1 71.43% (5)  28.57% (2)   0.00% (0)  100.00% (7)
2    2 60.00% (6)   0.00% (0)  40.00% (4) 100.00% (10)
3    3  0.00% (0)   0.00% (0) 100.00% (3)  100.00% (3)
4    4  0.00% (0)  40.00% (4)  60.00% (6) 100.00% (10)
5    6  0.00% (0) 100.00% (1)   0.00% (0)  100.00% (1)
6    8  0.00% (0)   0.00% (0) 100.00% (1)  100.00% (1)

[sfirke]

This was not a problem with adorn_crosstab:

> t2 %>% adorn_crosstab("col", show_totals = TRUE)
  carb         4         6         8      Total
1    1 45.5% (5) 28.6% (2)  0.0% (0) 21.9%  (7)
2    2 54.5% (6)  0.0% (0) 28.6% (4) 31.2% (10)
3    3  0.0% (0)  0.0% (0) 21.4% (3)  9.4%  (3)
4    4  0.0% (0) 57.1% (4) 42.9% (6) 31.2% (10)
5    6  0.0% (0) 14.3% (1)  0.0% (0)  3.1%  (1)
6    8  0.0% (0)  0.0% (0)  7.1% (1)  3.1%  (1)

[sfirke]

Quite ugly:

> t2 %>%
+   adorn_totals("col") %>%
+   adorn_percentages("row") %>%
+   adorn_pct_formatting(digits = 0) %>%
+   adorn_ns("front")
  carb       4        6        8     Total
1    1 5 (71%)  2 (29%)   0 (0%)  7 (100%)
2    2 6 (60%)   0 (0%)  4 (40%) 10 (100%)
3    3  0 (0%)   0 (0%) 3 (100%)  3 (100%)
4    4  0 (0%)  4 (40%)  6 (60%) 10 (100%)
5    6  0 (0%) 1 (100%)   0 (0%)  1 (100%)
6    8  0 (0%)   0 (0%) 1 (100%)  1 (100%)