title: total() in tab_cols only sum up to one, any suggestion?
body: <p>Suppose I have dataframe 'y'</p>
  <pre><code>WR&lt;-c(&quot;S&quot;,'J',&quot;T&quot;)
  B&lt;-c(&quot;b1&quot;,&quot;b2&quot;,&quot;b3&quot;)
  wgt&lt;-c(0.3,2,3)
  y&lt;-data.frame(WR,B,wgt)
  </code></pre>
  <p>I want to make column percentage crosstab with B as row, WR, and total of WR as columns using expss function</p>
  <pre><code>library(expss)
  
  y %&gt;% tab_cols(total(),WR) %&gt;% # Columns
      tab_stat_valid_n(&quot;Base&quot;) %&gt;% 
      tab_weight(wgt) %&gt;% 
      tab_stat_valid_n(&quot;Projection&quot;) %&gt;%
       tab_cells(mrset(B))%&gt;%   # Row
      tab_stat_cpct(total_row_position = &quot;none&quot;) %&gt;%
      tab_pivot() 
  </code></pre>
  <p><strong>Result</strong></p>
  <p>But the total Base column does not match up</p>
  <pre><code>#                      #Total    WR|J  WR|S WR|T
  #                Base  1.000000    1   1.0    1
  #          Projection  5.300000    2   0.3    3
  #                  b1  5.660377   NA 100.0   NA
  #                  b2 37.735849  100    NA   NA
  #                  b3 56.603774   NA    NA  100
  
  </code></pre>
  <p><strong>I think I found the solution</strong></p>
  <pre><code>y %&gt;% tab_cols(total(),WR) %&gt;% # Columns
      tab_cells(mrset(B))%&gt;%   # Row 
      tab_stat_valid_n(&quot;Base&quot;) %&gt;% 
      tab_weight(wgt) %&gt;% 
      tab_stat_valid_n(&quot;Projection&quot;) %&gt;%
      tab_stat_cpct(total_row_position = &quot;none&quot;) %&gt;%
      tab_pivot() 
  
   |    |            | #Total |  WR |       |     |
   |    |            |        |   J |     S |   T |
   | -- | ---------- | ------ | --- | ----- | --- |
   |  B |       Base |    3.0 |   1 |   1.0 |   1 |
   |    | Projection |    5.3 |   2 |   0.3 |   3 |
   | b1 |            |    5.7 |     | 100.0 |     |
   | b2 |            |   37.7 | 100 |       |     |
   | b3 |            |   56.6 |     |       | 100 |
  </code></pre>