tests/testthat/test_desc_cat.R

In MathieuMarauri/auditdata: Performs a Quality Audit of a Table

context("describe")

test_that(
  "Describe categorical vector with or without plot", 
  {
    x <- c(rep(letters, times = 3:28), rep(NA, 5))
    res <- audit_vector_categorical(x, plot = FALSE)
    expected_res_summary <- data.frame(
      Indicator = c("Length", "Number of NAs", "Number of unique values", "Number of values with duplicates"),
      Value = c(408L, 5L, 26L, 26L),
      stringsAsFactors = FALSE
    )
    expect_equal(res$summary_stat, expected_res_summary)
    
    expected_res_freq <- data.table(
      value = factor(rev(letters)[1:15]),
      freq = (28:3)[1:15],
      percent = round(28:3 / 403 * 100, digits = 0)[1:15],
      cum_freq = cumsum(28:3)[1:15],
      cum_percent = cumsum(round(28:3 / 403 * 100, digits = 0))[1:15]
    )
    names(expected_res_freq) <- c("Level", "Freq", "%", "Cumulative freq", "Cumulative %")
    expect_equal(res$freq_table, expected_res_freq)
    
    vdiffr::expect_doppelganger(
      title = "basic cat",
      fig = res$graph
    )
    
  }
)