diff --git a/tests/testthat/_snaps/describe_distribution.md b/tests/testthat/_snaps/describe_distribution.md index 0261ab9b1..c9c3c09cb 100644 --- a/tests/testthat/_snaps/describe_distribution.md +++ b/tests/testthat/_snaps/describe_distribution.md @@ -25,3 +25,15 @@ -------------------------------------------------------------------------------------- 3.06 | 0.44 | 0.52 | [2.00, 4.40] | 2.80, 3.30 | 0.32 | 0.23 | 150 | 0 +--- + + Code + format(x) + Output + Variable | Mean | SD | IQR | 90% CI | Range | Skewness | Kurtosis | n | n_Missing + --------------------------------------------------------------------------------------------------------------- + mpg | 20.09 | 6.03 | 7.53 | [ 18.19, 21.57] | [10.40, 33.90] | 0.67 | -0.02 | 32 | 0 + cyl | 6.19 | 1.79 | 4.00 | [ 5.50, 6.63] | [ 4.00, 8.00] | -0.19 | -1.76 | 32 | 0 + disp | 230.72 | 123.94 | 221.53 | [193.59, 261.00] | [71.10, 472.00] | 0.42 | -1.07 | 32 | 0 + hp | 146.69 | 68.56 | 84.50 | [129.42, 168.24] | [52.00, 335.00] | 0.80 | 0.28 | 32 | 0 + diff --git a/tests/testthat/test-describe_distribution.R b/tests/testthat/test-describe_distribution.R index 83d2abb33..198012590 100644 --- a/tests/testthat/test-describe_distribution.R +++ b/tests/testthat/test-describe_distribution.R @@ -285,4 +285,6 @@ test_that("describe_distribution formatting", { data(iris) x <- describe_distribution(iris$Sepal.Width, quartiles = TRUE) expect_snapshot(format(x)) + x <- describe_distribution(mtcars, select = 1:4, ci = 0.9) + expect_snapshot(format(x)) })