diff --git a/tests/testthat/_snaps/describe_distribution.md b/tests/testthat/_snaps/describe_distribution.md index 0261ab9b1..ee08e552c 100644 --- a/tests/testthat/_snaps/describe_distribution.md +++ b/tests/testthat/_snaps/describe_distribution.md @@ -25,3 +25,12 @@ -------------------------------------------------------------------------------------- 3.06 | 0.44 | 0.52 | [2.00, 4.40] | 2.80, 3.30 | 0.32 | 0.23 | 150 | 0 +--- + + Code + format(x) + Output + Mean | SD | IQR | 95% CI | Range | Quartiles | Skewness | Kurtosis | n | n_Missing + ----------------------------------------------------------------------------------------------------- + 3.06 | 0.44 | 0.52 | [2.99, 3.12] | [2.00, 4.40] | 2.80, 3.30 | 0.32 | 0.23 | 150 | 0 + diff --git a/tests/testthat/test-describe_distribution.R b/tests/testthat/test-describe_distribution.R index 0196bcf54..9b8b92fd3 100644 --- a/tests/testthat/test-describe_distribution.R +++ b/tests/testthat/test-describe_distribution.R @@ -284,4 +284,6 @@ test_that("describe_distribution formatting", { data(iris) x <- describe_distribution(iris$Sepal.Width, quartiles = TRUE) expect_snapshot(format(x)) + x <- describe_distribution(iris$Sepal.Width, ci = 0.95, quartiles = TRUE) + expect_snapshot(format(x)) })