tests/testthat/test-anlz_tdlcrk.R

test_that("Checking anlz_tldcrk", {

  result <- tdldat %>%
    pull(score)

  expect_equal(result, c("Monitor", "Monitor", "No Data", "Monitor", "No Data", "Monitor",
                         "Investigate", "No Data", "Monitor", "Monitor", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "Caution", "No Data", "No Data", "No Data", "Monitor", "No Data",
                         "No Data", "Monitor", "No Data", "No Data", "No Data", "No Data",
                         "Monitor", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "Monitor", "No Data", "No Data", "Monitor", "No Data", "Monitor",
                         "Monitor", "No Data", "Monitor", "No Data", "Monitor", "No Data",
                         "Monitor", "No Data", "No Data", "No Data", "Monitor", "No Data",
                         "No Data", "No Data", "Investigate", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "Monitor", "No Data", "Monitor", "No Data", "No Data", "Monitor",
                         "Monitor", "No Data", "No Data", "No Data", "Prioritize", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "Monitor", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "Monitor", "No Data",
                         "No Data", "No Data", "No Data", "Monitor", "No Data", "Monitor",
                         "No Data", "No Data", "Investigate", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "Monitor", "No Data",
                         "Monitor", "Monitor", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "Monitor", "Monitor", "No Data", "No Data", "No Data",
                         "No Data", "Prioritize", "No Data", "No Data", "Monitor", "No Data",
                         "No Data", "Monitor", "No Data", "Monitor", "Monitor", "No Data",
                         "No Data", "No Data", "Monitor", "Investigate", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "Monitor", "No Data", "No Data", "No Data", "Monitor",
                         "No Data", "No Data", "Prioritize", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "Monitor",
                         "No Data", "Monitor", "No Data", "Monitor", "No Data", "No Data",
                         "No Data", "No Data", "Monitor", "No Data", "No Data", "Monitor",
                         "No Data", "Monitor", "Monitor", "Monitor", "No Data", "Monitor",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "Prioritize", "Monitor", "Investigate", "Prioritize",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "Monitor", "No Data", "No Data", "Monitor", "No Data", "No Data",
                         "Investigate", "Monitor", "Monitor", "Monitor", "No Data", "Monitor",
                         "Monitor", "Prioritize", "Monitor", "No Data", "No Data", "No Data",
                         "No Data", "Prioritize", "Monitor", "Monitor", "Monitor", "No Data",
                         "No Data", "No Data", "Monitor", "Investigate", "No Data", "Monitor",
                         "Prioritize", "No Data", "Monitor", "No Data", "Caution", "No Data",
                         "No Data", "No Data", "Caution", "Monitor", "Prioritize", "No Data",
                         "No Data", "Prioritize", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "Caution",
                         "Monitor", "No Data", "No Data", "Monitor", "No Data", "No Data",
                         "Monitor", "No Data", "Monitor", "No Data", "No Data", "Prioritize",
                         "Monitor", "No Data", "Investigate", "Monitor", "Monitor", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "Monitor", "Monitor",
                         "Monitor", "Monitor", "Monitor", "No Data", "Investigate", "Monitor",
                         "No Data", "Monitor", "Monitor", "No Data", "Monitor", "Monitor",
                         "Monitor", "No Data", "No Data", "Monitor", "Monitor", "No Data",
                         "Monitor", "No Data", "No Data", "Monitor", "No Data", "Monitor",
                         "No Data", "Monitor", "Monitor", "No Data", "Monitor", "No Data",
                         "Monitor", "Investigate", "Monitor", "Monitor", "No Data", "Monitor",
                         "No Data", "Monitor", "Investigate", "No Data", "No Data", "No Data",
                         "Caution", "No Data", "Monitor", "Monitor", "No Data", "Monitor",
                         "Monitor", "Monitor", "Monitor", "No Data", "Caution", "Monitor",
                         "Monitor", "Monitor", "Monitor", "No Data", "Monitor", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "Monitor", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "Investigate",
                         "Prioritize", "No Data", "No Data", "No Data", "Monitor", "No Data",
                         "No Data", "No Data", "No Data", "Prioritize", "No Data", "Prioritize",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "Monitor",
                         "Monitor", "Monitor", "No Data", "No Data", "Monitor", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "Monitor", "No Data", "No Data", "No Data",
                         "No Data", "Monitor", "No Data", "No Data", "No Data", "Monitor",
                         "Monitor", "No Data", "Caution", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "Monitor", "Monitor", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "Monitor",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "Monitor",
                         "Monitor", "No Data", "Caution", "No Data", "Caution", "Monitor",
                         "No Data", "Monitor", "Monitor", "No Data", "Investigate", "Monitor",
                         "Monitor", "Monitor", "Monitor", "Investigate", "No Data", "Monitor",
                         "No Data", "No Data", "Caution", "Monitor", "Investigate", "No Data",
                         "No Data", "Monitor", "Monitor", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "Monitor", "Monitor", "Caution", "No Data", "Monitor", "Monitor",
                         "Monitor", "Monitor", "Monitor", "Monitor", "Monitor", "No Data",
                         "No Data", "No Data", "Monitor", "No Data", "Caution", "No Data",
                         "No Data", "Monitor", "No Data", "No Data", "Prioritize", "Prioritize",
                         "No Data", "Caution", "Monitor", "Monitor", "Monitor", "Monitor",
                         "Monitor", "Prioritize", "Prioritize", "Prioritize", "No Data",
                         "Monitor", "Monitor", "No Data", "Monitor", "No Data", "Prioritize",
                         "Monitor", "Monitor", "Monitor", "Monitor", "No Data", "Monitor",
                         "Monitor", "No Data", "No Data", "Investigate", "Prioritize",
                         "Investigate", "Monitor", "Investigate", "No Data", "Prioritize",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "Monitor",
                         "Caution", "Caution", "No Data", "No Data", "Monitor", "Monitor",
                         "Monitor", "No Data", "Caution", "No Data", "No Data", "Monitor",
                         "Monitor", "Caution", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "No Data", "No Data", "No Data", "No Data",
                         "No Data", "Investigate", "No Data", "No Data", "No Data", "No Data",
                         "Monitor", "No Data", "Monitor", "No Data", "No Data", "No Data",
                         "No Data", "No Data", "Monitor", "Monitor", "No Data", "Investigate",
                         "Monitor", "No Data", "No Data", "No Data", "No Data", "No Data"
  ))

})
tbep-tech/tbeptools documentation built on April 13, 2025, 4:50 p.m.