tests/testthat/test-get_skimmers.R

In skimr: Compact and Flexible Summaries of Data

test_that("get_sfl() behaves correctly", {
  my_sfl <- get_sfl("numeric")
  expect_s3_class(my_sfl, "skimr_function_list")
  expect_equal(my_sfl$skim_type, "numeric")
  expect_named(my_sfl$funs, c(
    "mean", "sd", "p0", "p25", "p50", "p75", "p100", "hist"
  ))

  expect_warning(get_sfl("missing class"), "no default")
})

test_that("get_default_skimmer_names() has a correct list of defaults", {
  defaults <- get_default_skimmer_names()
  expect_setequal(
    names(defaults),
    c(
      "AsIs", "character", "complex", "Date", "difftime", "factor",
      "haven_labelled", "list", "logical", "numeric", "POSIXct", "Timespan",
      "ts"
    )
  )
  expect_identical(defaults$AsIs, c("n_unique", "min_length", "max_length"))
  expect_identical(
    defaults$character, c("min", "max", "empty", "n_unique", "whitespace")
  )
  expect_identical(defaults$complex, c("mean"))
  expect_identical(defaults$Date, c("min", "max", "median", "n_unique"))
  expect_identical(defaults$difftime, c("min", "max", "median", "n_unique"))
  expect_identical(defaults$Timespan, c("min", "max", "median", "n_unique"))
  expect_identical(defaults$factor, c("ordered", "n_unique", "top_counts"))
  expect_identical(defaults$list, c("n_unique", "min_length", "max_length"))
  expect_identical(defaults$logical, c("mean", "count"))
  expect_identical(
    defaults$numeric, c("mean", "sd", "p0", "p25", "p50", "p75", "p100", "hist")
  )
  expect_identical(defaults$POSIXct, c("min", "max", "median", "n_unique"))
  expect_identical(
    defaults$ts,
    c(
      "start", "end", "frequency", "deltat", "mean", "sd", "min", "max",
      "median", "line_graph"
    )
  )
})

test_that("You can get the default skimmers for a particular class", {
  input <- get_default_skimmer_names("numeric")
  expect_named(input, "numeric")
  expect_identical(
    input$numeric, c("mean", "sd", "p0", "p25", "p50", "p75", "p100", "hist")
  )
})

test_that("You can get the default skimmers for multiple classes", {
  input <- get_default_skimmer_names(c("list", "AsIs"))
  expect_named(input, c("list", "AsIs"))
  expect_identical(input$AsIs, c("n_unique", "min_length", "max_length"))
  expect_identical(input$list, c("n_unique", "min_length", "max_length"))
})

test_that("A warning is given for classes that don't have defaults", {
  expect_warning(get_default_skimmer_names("no_class"), "no default")
})

test_that("get_one_default_skimmer_names() behaves as expected", {
  expect_identical(
    get_one_default_skimmer_names("list"),
    c("n_unique", "min_length", "max_length")
  )
})