tests/testthat/test-test-tidy.R

In LukasWallrich/timesaveR: Functions to Accelerate (Academic) Data Analysis and Reporting

x <- mtcars %>% dplyr::select(cyl, mpg, wt) %>% cor_matrix()

res1 <- tidy(x)
res2 <- tidy(x, both_directions = FALSE)

test_that("expected tibble format", {
  check_tibble(res1, any.missing = FALSE)
  expect_true(all(c("column1", "column2", "estimate", "std.error", "p.value", "conf.low", "conf.high", "n", "statistic") %in% names(res1)), label = "Test of column names")
  expect_equal(nrow(res1), 6) 
  expect_equal(nrow(res2), 3)
})

test_that("reject conf_level", {
  expect_error(tidy(x, conf_level == .9))
})

ess_survey <- srvyr::as_survey(timesaveR::ess_health %>% dplyr::select("agea", "health", "dosprt", "pweight"),
                               weights = pweight)

set.seed(1234)
out <- svy_cor_matrix(ess_survey, c(health = "Health", agea = "Age"))
tidy_mat <- tidy(out)

test_that("svy_cor_matrix can be tidied", {
  check_tibble(tidy_mat, any.missing = FALSE)
  expect_true(all(c("column1", "column2", "estimate", "std.error", "p.value", "statistic") %in% names(tidy_mat)), label = "Test of column names")
  expect_equal(nrow(tidy_mat), 2) 
  expect_equal(nrow(tidy(out, both_directions = FALSE)), 1)
})