Nothing
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")
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.