crosstable_options(funs) is sometimes not taken into account

[DanChaltiel]

library(crosstable)

crosstable_options(funs=mediqr)

crosstable(mtcars2, mpg)
#> # A tibble: 4 × 4
#>   .id   label             variable   value           
#>   <chr> <chr>             <chr>      <chr>           
#> 1 mpg   Miles/(US) gallon Min / Max  10.4 / 33.9     
#> 2 mpg   Miles/(US) gallon Med [IQR]  19.2 [15.4;22.8]
#> 3 mpg   Miles/(US) gallon Mean (std) 20.1 (6.0)      
#> 4 mpg   Miles/(US) gallon N (NA)     32 (0)

^{Created on 2024-11-17 with reprex v2.1.1}

Would work with crosstable_options(funs=c("x"=mediqr)).