tests/testthat/testevalResults.R

In validateIt: Validating Topic Coherence and Topic Labels

library(here)
here("data", "resultstest.rda")
here("data", "keypostedtest.rda")

#load("../../data/resultstest.rda")
#load("../../data/keypostedtest.rda")

evaluations <- evalResults(results = resultstest,
                           key = keypostedtest,
                           type = "R4WSI")

test_that("Evaluations in the correct format",{
  expect_length(evaluations, 3)
  expect_is(evaluations$`Gold-standard HIT Correct Rate by Workers`,
            "table")
})