tests: use expect_snapshot to check table output

Author: Florence Bockting

tests/testthat/_snaps/print_plot.md

@@ -2,3 +2,54 @@
 
     WAoAAAACAAQFAAACAwAAAAAOAAAAAT+2J8YDcP5s
 
+# print.loo supports kfold with pareto-k diagnostics - calibrated
+
+    Code
+      print(kfold1)
+    Output
+      
+      Based on 10-fold cross-validation.
+      
+                 Estimate   SE
+      elpd_kfold   -284.7 10.0
+      p_kfold         2.4  0.6
+      kfoldic       569.3 20.1
+      ------
+      
+      All Pareto k estimates are good (k < 0.7).
+      See help('pareto-k-diagnostic') for details.
+
+# print.loo supports kfold with pareto-k diagnostics - miscalibrated
+
+    Code
+      print(kfold1)
+    Output
+      
+      Based on 10-fold cross-validation.
+      
+                 Estimate     SE
+      elpd_kfold  -5521.0  713.1
+      p_kfold       318.5   97.9
+      kfoldic     11042.0 1426.3
+      ------
+      
+      Pareto k diagnostic values:
+                               Count Pct.    Min. ESS
+      (-Inf, 0.7]   (good)     249   95.0%   <NA>    
+         (0.7, 1]   (bad)        6    2.3%   <NA>    
+         (1, Inf)   (very bad)   7    2.7%   <NA>    
+      See help('pareto-k-diagnostic') for details.
+
+# print.loo supports kfold without pareto-k diagnostics
+
+    Code
+      print(kfold1)
+    Output
+      
+      Based on 10-fold cross-validation.
+      
+                 Estimate     SE
+      elpd_kfold  -5521.0  713.1
+      p_kfold       318.5   97.9
+      kfoldic     11042.0 1426.3
+

tests/testthat/test_print_plot.R

@@ -191,18 +191,18 @@ test_that("mcse_loo errors if not psis_loo object", {
 test_that("print.loo supports kfold with pareto-k diagnostics - calibrated", {
   kfold1 <- readRDS("data-for-tests/kfold-calibrated.Rds")
 
-  expect_output(print(kfold1), "All Pareto k estimates are good")
+  expect_snapshot(print(kfold1))
 })
 
 test_that("print.loo supports kfold with pareto-k diagnostics - miscalibrated", {
   kfold1 <- readRDS("data-for-tests/kfold-miscalibrated.Rds")
-
-  expect_output(print(kfold1), "Pareto k diagnostic values:")
+  
+  expect_snapshot(print(kfold1))
 })
 
 test_that("print.loo supports kfold without pareto-k diagnostics", {
   kfold1 <- readRDS("data-for-tests/kfold-miscalibrated.Rds")
   kfold1$diagnostics <- NULL
 
-  expect_output(print(kfold1), "Based on 10-fold cross-validation.")
+  expect_snapshot(print(kfold1))
 })