R Under development (unstable) (2024-10-14 r87233 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(qwraps2)
> 
> # basic formatting
> stopifnot(identical(median_iqr(mtcars$mpg), "19.20 (15.43, 22.80)"))
> 
> # warning given if show_n is not as expected
> stopifnot(inherits(tryCatch(median_iqr(mtcars$mpg, show_n = TRUE), error = function(e) e), "error"))
> 
> # show n with no missing data
> mpg <- mtcars$mpg
> stopifnot(identical(median_iqr(mpg, show_n = "always"), paste0(nrow(mtcars), "; 19.20 (15.43, 22.80)")))
> stopifnot(identical(median_iqr(mpg, show_n = "ifNA"), "19.20 (15.43, 22.80)"))
> stopifnot(identical(median_iqr(mpg, show_n = "never"), "19.20 (15.43, 22.80)"))
> 
> # show n with missing data
> mpg[c(3, 12)] <- NA_real_
> 
> stopifnot(identical(median_iqr(mpg, show_n = "always", na_rm = TRUE), paste0(nrow(mtcars) - 2, "; 19.20 (15.27, 22.48)")))
> stopifnot(identical(median_iqr(mpg, show_n = "ifNA", na_rm = TRUE), "30; 19.20 (15.27, 22.48)"))
> stopifnot(identical(median_iqr(mpg, show_n = "never", na_rm = TRUE), "19.20 (15.27, 22.48)"))
> 
> # non logical na_rm errors
> x <- c(1, NA, 2:10)
> stopifnot(inherits(tryCatch(median_iqr(x, na_rm = "Yes"), error = function(e) e, warning = function(w) w), "error"))
> stopifnot(inherits(tryCatch(median_iqr(x, na.rm = "Yes"), error = function(e) e, warning = function(w) w), "warning"))
> stopifnot(inherits(tryCatch(suppressWarnings(median_iqr(x, na.rm = "Yes")), error = function(e) e), "error"))
> 
> # missing value will result in an error
> x <- c(1, NA, 2:10)
> stopifnot(inherits(tryCatch(median_iqr(x), error = function(e) e, warning = function(w) w), "error"))
> 
> 
> proc.time()
   user  system elapsed 
   0.20    0.04    0.23