Nothing
test_that("Skim prints a header for the entire output and each type", {
withr::local_options(list(cli.unicode = FALSE))
skip_if_not(l10n_info()$`UTF-8`)
input <- skim(iris)
expect_print_matches_file(input, "print/default.txt")
input$numeric.hist <- NULL
expect_print_matches_file(input, "print/no-hist.txt",
skip_on_windows = FALSE
)
})
test_that("Skim prints a special header for grouped data frames", {
skip_if_not(l10n_info()$`UTF-8`)
withr::local_options(list(cli.unicode = FALSE))
input <- skim(dplyr::group_by(iris, Species))
expect_print_matches_file(input, "print/groups.txt")
})
test_that("Skim lists print as expected", {
skip_if_not(l10n_info()$`UTF-8`)
withr::local_options(list(cli.unicode = FALSE))
skimmed <- skim(iris)
input <- partition(skimmed)
expect_print_matches_file(input, "print/list.txt")
})
test_that("knit_print produces expected results", {
skip_if_not(l10n_info()$`UTF-8`)
withr::local_options(list(cli.unicode = FALSE))
skimmed <- skim(iris)
input <- knit_print(skimmed)
expect_s3_class(input, "knit_asis")
expect_length(input, 1)
expect_matches_file(input, "print/knit_print.txt")
})
test_that("knit_print works with skim summaries", {
withr::local_options(list(cli.unicode = FALSE))
skimmed <- skim(iris)
summarized <- summary(skimmed)
input <- knitr::knit_print(summarized)
expect_matches_file(input, "print/knit_print-summary.txt")
})
test_that("knit_print appropriately falls back to tibble printing", {
withr::local_options(list(cli.unicode = FALSE))
skimmed <- skim(iris)
reduced <- dplyr::select(skimmed, skim_variable, numeric.mean)
printed <- testthat::capture_output(input <- knitr::knit_print(reduced))
expect_matches_file(printed, "print/knit_print-fallback.txt")
expect_s3_class(input, "data.frame")
})
test_that("Summaries can be suppressed within knitr", {
skip_if_not(l10n_info()$`UTF-8`)
withr::local_options(list(cli.unicode = FALSE))
skimmed <- skim(iris)
options <- list(skimr_include_summary = FALSE)
input <- knitr::knit_print(skimmed, options = options)
expect_matches_file(input, "print/knit_print-suppressed.txt")
})
test_that("Skim lists have a separate knit_print method", {
skip_if_not(l10n_info()$`UTF-8`)
withr::local_options(list(cli.unicode = FALSE))
skimmed <- skim(iris)
skim_list <- partition(skimmed)
input <- knit_print(skim_list)
expect_matches_file(input, "print/knit_print-skim_list.txt")
})
test_that("You can yank a type from a skim_df and call knit_print", {
withr::local_options(list(cli.unicode = FALSE))
skimmed <- skim(iris)
skim_one <- yank(skimmed, "factor")
input <- knit_print(skim_one)
expect_matches_file(input, "print/knit_print-yank.txt")
})
test_that("make_utf8 produces the correct result ", {
withr::local_options(list(cli.unicode = FALSE))
input <- make_utf8(c("<U+2585><U+2587>"))
correct <- "▅"
expect_identical(input, correct)
})
test_that("Skim falls back to tibble::print.tbl() appropriately", {
withr::local_options(list(cli.unicode = FALSE))
input <- skim(iris)
mean_only <- dplyr::select(input, numeric.mean)
expect_print_matches_file(mean_only, "print/fallback.txt")
})
test_that("Print focused objects appropriately", {
withr::local_options(list(cli.unicode = FALSE))
skip_if_not(l10n_info()$`UTF-8`)
skimmed <- skim(iris)
input <- focus(skimmed, n_missing)
expect_print_matches_file(input, "print/focus.txt")
})
test_that("Support for smaller consoles can be set with the width option", {
withr::local_options(list(cli.unicode = FALSE))
skip_if_not(l10n_info()$`UTF-8`)
skimmed <- skim(iris)
expect_print_matches_file(skimmed, "print/smaller.txt", width = 50)
})
test_that("Table header width can be controlled by an option", {
withr::local_options(list(cli.unicode = FALSE))
skip_if_not(l10n_info()$`UTF-8`)
skimmed <- skim(iris)
expect_print_matches_file(
skimmed,
"print/narrow-header.txt",
skimr_table_header_width = 50
)
})
test_that("skimr creates appropriate output for Jupyter", {
withr::local_options(list(cli.unicode = FALSE))
skip_if_not(l10n_info()$`UTF-8`)
skimmed <- skim(iris)
input <- testthat::capture_output(repr_text(skimmed))
expect_matches_file(input, "print/repr.txt")
})
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.