Error with fct_na_value_to_level() and total="row"

[DanChaltiel]

library(tidyverse)
library(crosstable)

df = tibble(x = sample(c("a", "b", NA), 50, replace=TRUE),
       y = sample(c("a", "b"), 50, replace=TRUE)) %>% 
  mutate(x=fct_na_value_to_level(x, "NA"))

df %>% crosstable(x, by=y)
#> # A tibble: 3 × 5
#>   .id   label variable a           b          
#>   <chr> <chr> <chr>    <chr>       <chr>      
#> 1 x     x     a        10 (50.00%) 10 (50.00%)
#> 2 x     x     b        9 (64.29%)  5 (35.71%) 
#> 3 x     x     NA       9 (56.25%)  7 (43.75%)

df %>% crosstable(x, by=y, total="row")
#> Error in `map2()`:
#> ℹ In index: 1.
#> ℹ With name: x.
#> Caused by error in `mutate()`:
#> ℹ In argument: `Total = .total`.
#> Caused by error:
#> ! `Total` must be size 3 or 1, not 4.

^{Created on 2025-01-29 with reprex v2.1.1}