tests/testthat/test_sorting_missingness.R

In Nelson-Gon/mde: Missing Data Explorer

test_that(desc = "sorting only by columns or percents",
          code = {
            skip_on_oldrel()
            
            
            expect_snapshot(expect_error(sort_by_missingness(airquality,
                                       sort_by = "gibberish")))
            
            
            expect_equal(sort_by_missingness(airquality,
                                             descend = TRUE)[1, 2],
                         37)
            expect_equal(sort_by_missingness(airquality, descend = FALSE)[1, 2],
                         0)
            expect_equal(as.character(
              sort_by_missingness(airquality,
                                       sort_by = "percents", descend = TRUE)[[1]][1]
            ),
            "Ozone")
          })