tests/testthat/test-descriptives.R

In cjvanlissa/worcs: Workflow for Open Reproducible Code in Science

data("iris")
tmp <- descriptives(iris)

test_that("descriptives creates correct output", {
  expect_true(all(c("n", "missing", "unique", "mean", "median", "mode", "mode_value",
    "sd", "v", "min", "max", "range", "skew", "skew_2se", "kurt",
    "kurt_2se") %in% names(tmp)))
  num_vars <- sapply(iris, class) == "numeric"
  num_cols <- c("n", "missing", "unique", "mean", "median", "mode", "sd", "min", "max", "range", "skew", "skew_2se", "kurt", "kurt_2se")
  expect_true(all(!is.na(tmp[num_vars, num_cols])))

  fac_cols <- c("n", "missing", "unique", "mode", "mode_value", "v")
  expect_true(all(!is.na(tmp[!num_vars, fac_cols])))

  expect_true(all(is.na(tmp[num_vars, c("mode_value", "v")])))
  expect_true(all(is.na(tmp[!num_vars, c("mean", "median", "sd", "min", "max", "range", "skew", "skew_2se", "kurt", "kurt_2se")])))
})