tests/test-mean_se.R

In dewittpe/qwraps2: Quick Wraps 2

library(qwraps2)

m <- mean(mtcars$mpg)
s <- sd(mtcars$mpg) / sqrt(nrow(mtcars))

# basic formatting
stopifnot(
  identical(
    mean_se(mtcars$mpg) # should default to LaTeX markup
    ,
    qwraps2::frmt(m, digits = 2) %s% " $\\pm$ " %s% qwraps2::frmt(s, digits = 2)
  )
)

stopifnot(
  identical(
    mean_se(mtcars$mpg, denote_sd = "paren")
    ,
    qwraps2::frmt(m, digits = 2) %s% " (" %s% qwraps2::frmt(s, digits = 2) %s% ")"
  )
)

stopifnot(
  identical(
    mean_se(mtcars$mpg, markup = "markdown")
    ,
    qwraps2::frmt(m, digits = 2) %s% " &plusmn; " %s% qwraps2::frmt(s, digits = 2)
  )
)

stopifnot(
  identical(
    mean_se(mtcars$mpg, show_n = "always", markup = "markdown")
    ,
    qwraps2::frmt(nrow(mtcars)) %s% "; " %s% qwraps2::frmt(m, digits = 2) %s% " &plusmn; " %s% qwraps2::frmt(s, digits = 2)
  )
)

stopifnot(
  identical(
    mean_se(c(mtcars$mpg,NA), na_rm = TRUE, show_n = "always", markup = "markdown")
    ,
    qwraps2::frmt(nrow(mtcars)) %s% "; " %s% qwraps2::frmt(m, digits = 2) %s% " &plusmn; " %s% qwraps2::frmt(s, digits = 2)
  )
)

stopifnot(
  identical(
    mean_se(c(mtcars$mpg, NA), na_rm = TRUE, show_n = "never", markup = "markdown")
    ,
    qwraps2::frmt(m, digits = 2) %s% " &plusmn; " %s% qwraps2::frmt(s, digits = 2)
  )
)

# error if show_n is not as expected
stopifnot(inherits(tryCatch(mean_se(mtcars$mpg, show_n = TRUE), error = function(e) e), "error"))

# warning if na.rm is used instead of na_rm
stopifnot(inherits(tryCatch(mean_se(mtcars$mpg, na.rm = TRUE), warning = function(w) w), "warning"))