From e6f6b0287d7cef30c7e2e7bb2ce5162671c7a4d4 Mon Sep 17 00:00:00 2001 From: simonpcouch Date: Mon, 25 Mar 2024 08:39:00 -0500 Subject: [PATCH 1/7] address length-1 aesthetics warning --- R/shade_p_value.R | 2 ++ 1 file changed, 2 insertions(+) diff --git a/R/shade_p_value.R b/R/shade_p_value.R index 3a8fdf55..53ba98f3 100644 --- a/R/shade_p_value.R +++ b/R/shade_p_value.R @@ -180,6 +180,8 @@ shade_p_value_term <- function(plot, obs_stat, direction, segment_args <- c_dedupl( # Not overwritable arguments list( + # Address length-1 aesthetics warning by providing geom-specific data (#528) + data = data.frame(obs_stat = obs_stat), # Here `aes()` is needed to force {ggplot2} to include segment in the plot mapping = aes(x = obs_stat, xend = obs_stat, y = 0, yend = Inf), color = color, From eafbb29ad06e2cb113092e702ab360376ecd173d Mon Sep 17 00:00:00 2001 From: simonpcouch Date: Mon, 25 Mar 2024 09:13:22 -0500 Subject: [PATCH 2/7] accept snap changes the `get_p_value()` `obs_stat` lines tend to be slightly slimmer in the new versions of all of these. --- .../_snaps/shade_p_value/pval-both-both.svg | 99 -- .../_snaps/shade_p_value/pval-both-left.svg | 99 -- .../_snaps/shade_p_value/pval-both-null.svg | 99 -- .../_snaps/shade_p_value/pval-both-right.svg | 99 -- .../shade_p_value/pval-direction-both.svg | 99 -- .../shade_p_value/pval-direction-left.svg | 99 -- .../shade_p_value/pval-direction-right.svg | 99 -- .../_snaps/shade_p_value/pval-extra-aes-1.svg | 99 -- .../_snaps/shade_p_value/pval-extra-aes-2.svg | 99 -- .../_snaps/shade_p_value/pval-extra-aes-3.svg | 99 -- .../_snaps/shade_p_value/pval-sim-both.svg | 99 -- .../_snaps/shade_p_value/pval-sim-left.svg | 99 -- .../_snaps/shade_p_value/pval-sim-null.svg | 99 -- .../_snaps/shade_p_value/pval-sim-right.svg | 99 -- .../_snaps/shade_p_value/pval-stat-match.svg | 999 ------------------ .../_snaps/shade_p_value/pval-theor-both.svg | 99 -- .../_snaps/shade_p_value/pval-theor-left.svg | 99 -- .../_snaps/shade_p_value/pval-theor-null.svg | 99 -- .../_snaps/shade_p_value/pval-theor-right.svg | 99 -- .../_snaps/visualize/df-obs-stat-1.svg | 99 -- .../_snaps/visualize/vis-sim-both-1.svg | 99 -- .../_snaps/visualize/vis-sim-both-2.svg | 9 - .../_snaps/visualize/vis-sim-left-1.svg | 99 -- .../_snaps/visualize/vis-sim-right-1.svg | 99 -- .../_snaps/visualize/vis-theor-both-1.svg | 99 -- .../_snaps/visualize/viz-fit-no-h0.svg | 2 +- .../_snaps/visualize/viz-fit-p-val-both.svg | 57 - .../_snaps/visualize/viz-fit-p-val-left.svg | 57 - .../_snaps/visualize/viz-fit-p-val-right.svg | 57 - 29 files changed, 1 insertion(+), 3457 deletions(-) diff --git a/tests/testthat/_snaps/shade_p_value/pval-both-both.svg b/tests/testthat/_snaps/shade_p_value/pval-both-both.svg index 6ebafedb..d958d8ea 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-both-both.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-both-both.svg @@ -48,105 +48,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-both-left.svg b/tests/testthat/_snaps/shade_p_value/pval-both-left.svg index 8430f3dd..a493cb80 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-both-left.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-both-left.svg @@ -46,105 +46,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-both-null.svg b/tests/testthat/_snaps/shade_p_value/pval-both-null.svg index 0fb08314..7d9bde00 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-both-null.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-both-null.svg @@ -44,105 +44,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-both-right.svg b/tests/testthat/_snaps/shade_p_value/pval-both-right.svg index c20569a3..b2b31a3e 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-both-right.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-both-right.svg @@ -46,105 +46,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-direction-both.svg b/tests/testthat/_snaps/shade_p_value/pval-direction-both.svg index a39ee02e..17eceec2 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-direction-both.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-direction-both.svg @@ -47,105 +47,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-direction-left.svg b/tests/testthat/_snaps/shade_p_value/pval-direction-left.svg index e4fc3f0a..cea3f652 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-direction-left.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-direction-left.svg @@ -45,105 +45,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-direction-right.svg b/tests/testthat/_snaps/shade_p_value/pval-direction-right.svg index 5217d7b8..a05f63ac 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-direction-right.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-direction-right.svg @@ -45,105 +45,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-extra-aes-1.svg b/tests/testthat/_snaps/shade_p_value/pval-extra-aes-1.svg index 1eef0605..e242a722 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-extra-aes-1.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-extra-aes-1.svg @@ -47,105 +47,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-extra-aes-2.svg b/tests/testthat/_snaps/shade_p_value/pval-extra-aes-2.svg index b541c52e..d1c035e5 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-extra-aes-2.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-extra-aes-2.svg @@ -47,105 +47,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-extra-aes-3.svg b/tests/testthat/_snaps/shade_p_value/pval-extra-aes-3.svg index 141c8027..06094ce3 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-extra-aes-3.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-extra-aes-3.svg @@ -47,105 +47,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-sim-both.svg b/tests/testthat/_snaps/shade_p_value/pval-sim-both.svg index a39ee02e..17eceec2 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-sim-both.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-sim-both.svg @@ -47,105 +47,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-sim-left.svg b/tests/testthat/_snaps/shade_p_value/pval-sim-left.svg index e4fc3f0a..cea3f652 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-sim-left.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-sim-left.svg @@ -45,105 +45,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-sim-null.svg b/tests/testthat/_snaps/shade_p_value/pval-sim-null.svg index 9c938e44..405f4304 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-sim-null.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-sim-null.svg @@ -43,105 +43,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-sim-right.svg b/tests/testthat/_snaps/shade_p_value/pval-sim-right.svg index 5217d7b8..a05f63ac 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-sim-right.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-sim-right.svg @@ -45,105 +45,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-stat-match.svg b/tests/testthat/_snaps/shade_p_value/pval-stat-match.svg index ac212799..9b10ced3 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-stat-match.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-stat-match.svg @@ -47,1005 +47,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-theor-both.svg b/tests/testthat/_snaps/shade_p_value/pval-theor-both.svg index ee92face..a807041c 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-theor-both.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-theor-both.svg @@ -33,105 +33,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-theor-left.svg b/tests/testthat/_snaps/shade_p_value/pval-theor-left.svg index 53d6df08..ea52feec 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-theor-left.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-theor-left.svg @@ -31,105 +31,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-theor-null.svg b/tests/testthat/_snaps/shade_p_value/pval-theor-null.svg index 76aaceda..04055c8d 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-theor-null.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-theor-null.svg @@ -29,105 +29,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/shade_p_value/pval-theor-right.svg b/tests/testthat/_snaps/shade_p_value/pval-theor-right.svg index e8593d00..00ff0e2c 100644 --- a/tests/testthat/_snaps/shade_p_value/pval-theor-right.svg +++ b/tests/testthat/_snaps/shade_p_value/pval-theor-right.svg @@ -31,105 +31,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/visualize/df-obs-stat-1.svg b/tests/testthat/_snaps/visualize/df-obs-stat-1.svg index b38233b8..3ffd0a23 100644 --- a/tests/testthat/_snaps/visualize/df-obs-stat-1.svg +++ b/tests/testthat/_snaps/visualize/df-obs-stat-1.svg @@ -45,105 +45,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/visualize/vis-sim-both-1.svg b/tests/testthat/_snaps/visualize/vis-sim-both-1.svg index 23840140..f744ac95 100644 --- a/tests/testthat/_snaps/visualize/vis-sim-both-1.svg +++ b/tests/testthat/_snaps/visualize/vis-sim-both-1.svg @@ -45,105 +45,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/visualize/vis-sim-both-2.svg b/tests/testthat/_snaps/visualize/vis-sim-both-2.svg index 3094d308..aaef2c36 100644 --- a/tests/testthat/_snaps/visualize/vis-sim-both-2.svg +++ b/tests/testthat/_snaps/visualize/vis-sim-both-2.svg @@ -45,15 +45,6 @@ - - - - - - - - - diff --git a/tests/testthat/_snaps/visualize/vis-sim-left-1.svg b/tests/testthat/_snaps/visualize/vis-sim-left-1.svg index b8d59087..bd5c3a35 100644 --- a/tests/testthat/_snaps/visualize/vis-sim-left-1.svg +++ b/tests/testthat/_snaps/visualize/vis-sim-left-1.svg @@ -45,105 +45,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/visualize/vis-sim-right-1.svg b/tests/testthat/_snaps/visualize/vis-sim-right-1.svg index 509bbbbb..92e0f9e6 100644 --- a/tests/testthat/_snaps/visualize/vis-sim-right-1.svg +++ b/tests/testthat/_snaps/visualize/vis-sim-right-1.svg @@ -45,105 +45,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/visualize/vis-theor-both-1.svg b/tests/testthat/_snaps/visualize/vis-theor-both-1.svg index 35f2f57d..5597ec42 100644 --- a/tests/testthat/_snaps/visualize/vis-theor-both-1.svg +++ b/tests/testthat/_snaps/visualize/vis-theor-both-1.svg @@ -33,105 +33,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/tests/testthat/_snaps/visualize/viz-fit-no-h0.svg b/tests/testthat/_snaps/visualize/viz-fit-no-h0.svg index 4d2ec7e4..c9684f00 100644 --- a/tests/testthat/_snaps/visualize/viz-fit-no-h0.svg +++ b/tests/testthat/_snaps/visualize/viz-fit-no-h0.svg @@ -18,7 +18,7 @@ - + diff --git a/tests/testthat/_snaps/visualize/viz-fit-p-val-both.svg b/tests/testthat/_snaps/visualize/viz-fit-p-val-both.svg index 7afe46ae..4eaabcf1 100644 --- a/tests/testthat/_snaps/visualize/viz-fit-p-val-both.svg +++ b/tests/testthat/_snaps/visualize/viz-fit-p-val-both.svg @@ -84,25 +84,6 @@ - - - - - - - - - - - - - - - - - - - 0 @@ -180,25 +161,6 @@ - - - - - - - - - - - - - - - - - - - 0 @@ -278,25 +240,6 @@ - - - - - - - - - - - - - - - - - - - 0 diff --git a/tests/testthat/_snaps/visualize/viz-fit-p-val-left.svg b/tests/testthat/_snaps/visualize/viz-fit-p-val-left.svg index e0927b37..ccb82c90 100644 --- a/tests/testthat/_snaps/visualize/viz-fit-p-val-left.svg +++ b/tests/testthat/_snaps/visualize/viz-fit-p-val-left.svg @@ -82,25 +82,6 @@ - - - - - - - - - - - - - - - - - - - 0 @@ -178,25 +159,6 @@ - - - - - - - - - - - - - - - - - - - 0 @@ -274,25 +236,6 @@ - - - - - - - - - - - - - - - - - - - 0 diff --git a/tests/testthat/_snaps/visualize/viz-fit-p-val-right.svg b/tests/testthat/_snaps/visualize/viz-fit-p-val-right.svg index 3986b661..ab5f6475 100644 --- a/tests/testthat/_snaps/visualize/viz-fit-p-val-right.svg +++ b/tests/testthat/_snaps/visualize/viz-fit-p-val-right.svg @@ -82,25 +82,6 @@ - - - - - - - - - - - - - - - - - - - 0 @@ -176,25 +157,6 @@ - - - - - - - - - - - - - - - - - - - 0 @@ -272,25 +234,6 @@ - - - - - - - - - - - - - - - - - - - 0 From ac78904708ccfe34934e96a60e996830bf8772c3 Mon Sep 17 00:00:00 2001 From: simonpcouch Date: Mon, 25 Mar 2024 09:35:35 -0500 Subject: [PATCH 3/7] trigger empty tibble `geom_area()` edge case --- R/shade_p_value.R | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/R/shade_p_value.R b/R/shade_p_value.R index 53ba98f3..7a34d3ef 100644 --- a/R/shade_p_value.R +++ b/R/shade_p_value.R @@ -348,6 +348,12 @@ hist_area <- function(data, obs_stat, direction, yval) { right = c(obs_stat, x_extra[x_extra > obs_stat]) ) + # if area will have area 0, return 0-length tibble to trigger + # `ggplot:::empty()` edge case (#528) + if (length(x_grid) == 1) { + return(tibble::tibble(x = numeric(0), y = numeric(0), dir = direction)) + } + tibble::tibble(x = x_grid, y = curve_fun(x_grid), dir = direction) } From a8f133cedd882fa8463f4bc07ec868e1bee3b8cb Mon Sep 17 00:00:00 2001 From: simonpcouch Date: Mon, 25 Mar 2024 09:36:14 -0500 Subject: [PATCH 4/7] update snapshots slight changes in range for all, barely noticeable. --- .../_snaps/visualize/df-obs-stat-1.svg | 50 ++++++------- .../_snaps/visualize/vis-sim-both-1.svg | 50 ++++++------- .../_snaps/visualize/vis-sim-both-2.svg | 50 ++++++------- .../_snaps/visualize/viz-fit-p-val-both.svg | 72 +++++++++---------- 4 files changed, 111 insertions(+), 111 deletions(-) diff --git a/tests/testthat/_snaps/visualize/df-obs-stat-1.svg b/tests/testthat/_snaps/visualize/df-obs-stat-1.svg index 3ffd0a23..a90b7853 100644 --- a/tests/testthat/_snaps/visualize/df-obs-stat-1.svg +++ b/tests/testthat/_snaps/visualize/df-obs-stat-1.svg @@ -27,23 +27,23 @@ - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + @@ -56,14 +56,14 @@ - - - - -10 -20 -30 -40 + + + + +10 +20 +30 +40 stat count Simulation-Based Null Distribution diff --git a/tests/testthat/_snaps/visualize/vis-sim-both-1.svg b/tests/testthat/_snaps/visualize/vis-sim-both-1.svg index f744ac95..8a203fc3 100644 --- a/tests/testthat/_snaps/visualize/vis-sim-both-1.svg +++ b/tests/testthat/_snaps/visualize/vis-sim-both-1.svg @@ -27,23 +27,23 @@ - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + @@ -57,15 +57,15 @@ - - - - + + + + -1.00 --0.75 --0.50 --0.25 -0.00 +-0.75 +-0.50 +-0.25 +0.00 stat count Simulation-Based Null Distribution diff --git a/tests/testthat/_snaps/visualize/vis-sim-both-2.svg b/tests/testthat/_snaps/visualize/vis-sim-both-2.svg index aaef2c36..2165a187 100644 --- a/tests/testthat/_snaps/visualize/vis-sim-both-2.svg +++ b/tests/testthat/_snaps/visualize/vis-sim-both-2.svg @@ -27,23 +27,23 @@ - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + @@ -58,15 +58,15 @@ - - - - + + + + --2 --1 -0 -1 +-2 +-1 +0 +1 2 stat count diff --git a/tests/testthat/_snaps/visualize/viz-fit-p-val-both.svg b/tests/testthat/_snaps/visualize/viz-fit-p-val-both.svg index 4eaabcf1..e1ec5772 100644 --- a/tests/testthat/_snaps/visualize/viz-fit-p-val-both.svg +++ b/tests/testthat/_snaps/visualize/viz-fit-p-val-both.svg @@ -128,38 +128,38 @@ - - - - + + + + - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + @@ -173,16 +173,16 @@ - - - - - --3 --2 --1 -0 -1 + + + + + +-3 +-2 +-1 +0 +1 collegedegree count From 02885e2907ee4f152ba4d25508a6966ed79a8e06 Mon Sep 17 00:00:00 2001 From: simonpcouch Date: Mon, 25 Mar 2024 09:39:53 -0500 Subject: [PATCH 5/7] add NEWS entry --- NEWS.md | 3 +++ 1 file changed, 3 insertions(+) diff --git a/NEWS.md b/NEWS.md index 266948af..2a55c7f7 100755 --- a/NEWS.md +++ b/NEWS.md @@ -1,5 +1,8 @@ # infer (development version) +* Addresses ggplot2 warnings when shading p-values for test statistics + that are outside of the range of the generated distribution (#528). + # infer v1.0.6 * Updated infrastructure for errors, warnings, and messages (#513). Most of these changes will not be visible to users, though: From 421e21f50b125cde68750562ab20fd80f5436020 Mon Sep 17 00:00:00 2001 From: simonpcouch Date: Mon, 25 Mar 2024 09:46:42 -0500 Subject: [PATCH 6/7] test zero-area shading --- .../_snaps/shade_p_value/zero-area-shade.svg | 71 +++++++++++++++++++ tests/testthat/test-shade_p_value.R | 10 +++ 2 files changed, 81 insertions(+) create mode 100644 tests/testthat/_snaps/shade_p_value/zero-area-shade.svg diff --git a/tests/testthat/_snaps/shade_p_value/zero-area-shade.svg b/tests/testthat/_snaps/shade_p_value/zero-area-shade.svg new file mode 100644 index 00000000..2016248f --- /dev/null +++ b/tests/testthat/_snaps/shade_p_value/zero-area-shade.svg @@ -0,0 +1,71 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +0 +5 +10 +15 + + + + + + + + + +0 +25 +50 +75 +100 +stat +count +Simulation-Based Null Distribution + + diff --git a/tests/testthat/test-shade_p_value.R b/tests/testthat/test-shade_p_value.R index 7e728f7f..32645a34 100644 --- a/tests/testthat/test-shade_p_value.R +++ b/tests/testthat/test-shade_p_value.R @@ -141,6 +141,16 @@ test_that("shade_p_value throws errors", { }) +test_that("`shade_p_value()` handles 0-area shading without issue (#528)", { + expect_no_condition( + zero_area_shade <- visualize(gss_permute) + shade_p_value(100, "right") + ) + + expect_doppelganger( + "zero_area_shade", + expect_no_condition(print(zero_area_shade)), + ) +}) # norm_direction ---------------------------------------------------------- test_that("norm_direction works", { From b770193e3b3a1c975777f814572d4d4fbdebfbbd Mon Sep 17 00:00:00 2001 From: simonpcouch Date: Mon, 25 Mar 2024 09:52:08 -0500 Subject: [PATCH 7/7] use a more visually apparent tibble length --- R/shade_p_value.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/shade_p_value.R b/R/shade_p_value.R index 7a34d3ef..96850d8f 100644 --- a/R/shade_p_value.R +++ b/R/shade_p_value.R @@ -351,7 +351,7 @@ hist_area <- function(data, obs_stat, direction, yval) { # if area will have area 0, return 0-length tibble to trigger # `ggplot:::empty()` edge case (#528) if (length(x_grid) == 1) { - return(tibble::tibble(x = numeric(0), y = numeric(0), dir = direction)) + return(tibble::tibble(x = numeric(0), y = numeric(0), dir = character(0))) } tibble::tibble(x = x_grid, y = curve_fun(x_grid), dir = direction)