total() in tab_cols only sum up to one, any suggestion?

Question

Suppose I have dataframe 'y'

WR<-c("S",'J',"T")
B<-c("b1","b2","b3")
wgt<-c(0.3,2,3)
y<-data.frame(WR,B,wgt)

I want to make column percentage crosstab with B as row, WR, and total of WR as columns using expss function

library(expss)

y %>% tab_cols(total(),WR) %>% # Columns
    tab_stat_valid_n("Base") %>% 
    tab_weight(wgt) %>% 
    tab_stat_valid_n("Projection") %>%
     tab_cells(mrset(B))%>%   # Row
    tab_stat_cpct(total_row_position = "none") %>%
    tab_pivot() 

Result

But the total Base column does not match up

#                      #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

I think I found the solution

y %>% tab_cols(total(),WR) %>% # Columns
    tab_cells(mrset(B))%>%   # Row 
    tab_stat_valid_n("Base") %>% 
    tab_weight(wgt) %>% 
    tab_stat_valid_n("Projection") %>%
    tab_stat_cpct(total_row_position = "none") %>%
    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 |