cleaner snapshot

IndrajeetPatil · Jul 27, 2024 · a4e6221 · a4e6221
1 parent b3ea1f9
commit a4e6221
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 36 deletions.
diff --git a/tests/testthat/_snaps/extract-stats.md b/tests/testthat/_snaps/extract-stats.md
@@ -138,28 +138,6 @@
            Length Class             Mode
       [1,] 7      ggstatsplot_stats list
       [2,] 7      ggstatsplot_stats list
-    Code
-      summary(extracted_data[[1L]])
-    Output
-                                Length Class            Mode
-      subtitle_data             13     statsExpressions list
-      caption_data               4     statsExpressions list
-      pairwise_comparisons_data  0     -none-           NULL
-      descriptive_data           4     tbl_df           list
-      one_sample_data            0     -none-           NULL
-      tidy_data                  0     -none-           NULL
-      glance_data                0     -none-           NULL
-    Code
-      summary(extracted_data[[2L]])
-    Output
-                                Length Class            Mode
-      subtitle_data             13     statsExpressions list
-      caption_data               4     statsExpressions list
-      pairwise_comparisons_data  0     -none-           NULL
-      descriptive_data           4     tbl_df           list
-      one_sample_data            0     -none-           NULL
-      tidy_data                  0     -none-           NULL
-      glance_data                0     -none-           NULL
     Code
       extract_subtitle(p8)
     Output
@@ -173,15 +151,4 @@
           widehat(italic("C"))["Pearson"] == "0.52", CI["95%"] ~ "[" * 
               "0.00", "0.74" * "]", italic("n")["obs"] == "13")
       
-    Code
-      extract_caption(p8)
-    Output
-      [[1]]
-      list(log[e] * (BF["01"]) == "-0.16", italic("a")["Gunel-Dickey"] == 
-          "1.00")
-      
-      [[2]]
-      list(log[e] * (BF["01"]) == "0.82", italic("a")["Gunel-Dickey"] == 
-          "1.00")
-      
 
diff --git a/tests/testthat/test-extract-stats.R b/tests/testthat/test-extract-stats.R
@@ -84,10 +84,7 @@ test_that(
       p8 <- grouped_ggpiestats(mtcars, x = cyl, grouping.var = am)
       extracted_data <- extract_stats(p8)
       summary(extracted_data)
-      summary(extracted_data[[1L]])
-      summary(extracted_data[[2L]])
       extract_subtitle(p8)
-      extract_caption(p8)
     })
   }
 )