update snapshot

Author: strengejacke

tests/testthat/_snaps/display_print_dataframe.md

@@ -18,3 +18,23 @@
       p-value adjustment method: Holm (1979)
       Observations: 150
 
+---
+
+    Code
+      print_md(correlation(iris))
+    Output
+      
+      
+      Table: Correlation Matrix (pearson-method)
+      
+      |Parameter1   |   Parameter2 |     r |         95% CI | t(148) |         p |
+      |:------------|:------------:|:-----:|:--------------:|:------:|:---------:|
+      |Sepal.Length |  Sepal.Width | -0.12 |  (-0.27, 0.04) |  -1.44 | 0.152     |
+      |Sepal.Length | Petal.Length |  0.87 |   (0.83, 0.91) |  21.65 | < .001*** |
+      |Sepal.Length |  Petal.Width |  0.82 |   (0.76, 0.86) |  17.30 | < .001*** |
+      |Sepal.Width  | Petal.Length | -0.43 | (-0.55, -0.29) |  -5.77 | < .001*** |
+      |Sepal.Width  |  Petal.Width | -0.37 | (-0.50, -0.22) |  -4.79 | < .001*** |
+      |Petal.Length |  Petal.Width |  0.96 |   (0.95, 0.97) |  43.39 | < .001*** |
+      p-value adjustment method: Holm (1979)
+      Observations: 150
+

tests/testthat/_snaps/display_print_matrix.md

@@ -5,6 +5,22 @@
     Output
       
       
+      Table: Correlation Matrix (pearson-method)
+      
+      |Parameter    | Petal.Width | Petal.Length | Sepal.Width |
+      |:------------|:-----------:|:------------:|:-----------:|
+      |Sepal.Length |     0.82*** |      0.87*** |       -0.12 |
+      |Sepal.Width  |    -0.37*** |     -0.43*** |             |
+      |Petal.Length |     0.96*** |              |             |
+      p-value adjustment method: Holm (1979)
+
+---
+
+    Code
+      print_md(summary(correlation(iris)))
+    Output
+      
+      
       Table: Correlation Matrix (pearson-method)
       
       |Parameter    | Petal.Width | Petal.Length | Sepal.Width |

tests/testthat/test-display_print_dataframe.R

@@ -2,6 +2,7 @@ test_that("display and print method works - markdown", {
   skip_on_cran()
   skip_if_not_or_load_if_installed("knitr")
   expect_snapshot(display(correlation(iris)))
+  expect_snapshot(print_md(correlation(iris)))
 })
 
 # display and print method works - HTML -----------------------------

tests/testthat/test-display_print_matrix.R

@@ -4,6 +4,7 @@ test_that("display and print method works - markdown", {
   skip_on_cran()
   skip_if_not_or_load_if_installed("knitr")
   expect_snapshot(display(summary(correlation(iris))))
+  expect_snapshot(print_md(summary(correlation(iris))))
 })
 
 # display and print method works - html -----------------------------