tests/testthat/test-summ_stats.R

In FrankLef/eflMuncher: Data Pre-processing Tools Used by FL

test_that("summ_stats: Input Errors", {
  df <- iris

  rgx <- "Must group by variables found in `.data`"
  expect_error(summ_stats(df, stats_var = "Sepal.Length", group_var = "wrong",
                            prune_var = NULL, log = TRUE),
               regexp = rgx)
})

test_that("summ_stats: log = FALSE", {
  df <- iris

  out <- summ_stats(df, stats_var = "Sepal.Length", group_var = "Species",
                      prune_var = NULL, log = FALSE) |>
    as.data.frame()
  # cat("\n", "out", "\n")
  # print(out)
  # cat("\n")

  target <- data.frame(
    Species = c("setosa", "versicolor", "virginica"),
    nb = 50L,
    tot = c(250.3, 296.8, 329.4)) |>
    mutate(Species = as.factor(Species))
  # cat("\n", "target", "\n")
  # print(target)
  # cat("\n")

  expect_identical(out, target)
})

test_that("summ_stats: log = TRUE", {
  df <- iris

  out <- summ_stats(df, stats_var = "Sepal.Length", group_var = "Species",
                      prune_var = NULL, log = TRUE) |>
    mutate(dplyr::across(.cols = where(is.numeric), .fns = round, digits = 1)) |>
    as.data.frame()
  # cat("\n", "out", "\n")
  # print(out)
  # cat("\n")

  the_num <- c(250.3, 296.8, 329.4)
  target <- data.frame(
    Species = c("setosa", "versicolor", "virginica"),
    nb = 50,
    tot_log = the_num,
    tot = round(exp(the_num), 1)) |>
    mutate(Species = as.factor(Species))
  # cat("\n", "target", "\n")
  # print(target)
  # cat("\n")

  expect_identical(out, target)
})

test_that("summ_stats: group_var = NULL, log = FALSE", {
  df <- iris

  out <- summ_stats(df, stats_var = "Sepal.Length", group_var = NULL,
                    prune_var = NULL, log = FALSE)
  # cat("\n", "out", "\n")
  # print(out)
  # cat("\n")

  target <- stats::setNames(c(nrow(df), sum(df$Sepal.Length)),
                            nm = c("nb", "tot"))
  target <- data.frame(t(target))
  target$nb <- as.integer(target$nb)
  # cat("\n", "target", "\n")
  # print(target)
  # cat("\n")

  expect_identical(out, target)
})