updates to fix R cmd check problems

behramulukir · behramulukir · commit 2438b42f960b · 2025-08-23T15:52:29.000+03:00
diff --git a/R/ppc-discrete.R b/R/ppc-discrete.R
@@ -310,7 +310,7 @@ ppc_rootogram <- function(y,
     graph <- graph +
       geom_yrep +
       geom_y +
-      aes(x = xpos) +
+      aes(x = .data$xpos) +
       scale_y_sqrt() +
       scale_fill_manual("", values = get_color("d"), guide = "none") +
       scale_color_manual("", values = get_color("lh"), labels = yrep_label()) +
diff --git a/tests/testthat/_snaps/ppc-discrete/ppc-rootogram-discrete-prob-size-bound-distinct-false.svg b/tests/testthat/_snaps/ppc-discrete/ppc-rootogram-discrete-prob-size-bound-distinct-false.svg
@@ -78,6 +78,6 @@
 <text x='694.89' y='314.79' style='font-size: 9.10px; font-family: sans;' textLength='3.03px' lengthAdjust='spacingAndGlyphs'>r</text>
 <text x='697.92' y='314.79' style='font-size: 9.10px; font-family: sans;' textLength='5.06px' lengthAdjust='spacingAndGlyphs'>e</text>
 <text x='702.98' y='314.79' style='font-size: 9.10px; font-family: sans;' textLength='5.06px' lengthAdjust='spacingAndGlyphs'>p</text>
-<text x='35.77' y='15.89' style='font-size: 14.40px; font-family: sans;' textLength='429.79px' lengthAdjust='spacingAndGlyphs'>ppc_rootogram (style='discrete', prob, size, bound_distinct=FALSE)</text>
+<text x='35.77' y='15.89' style='font-size: 14.40px; font-family: sans;' textLength='391.75px' lengthAdjust='spacingAndGlyphs'>ppc_rootogram ('discrete', prob, size, bound_distinct=FALSE)</text>
 </g>
 </svg>
diff --git a/tests/testthat/test-ppc-discrete.R b/tests/testthat/test-ppc-discrete.R
@@ -200,7 +200,7 @@ test_that("ppc_rootogram renders correctly", {
   )
 
   vdiffr::expect_doppelganger(
-    title = "ppc_rootogram (style='discrete', prob, size, bound_distinct=FALSE)",
+    title = "ppc_rootogram ('discrete', prob, size, bound_distinct=FALSE)",
     fig = p_discrete_nonbound)
 })
 

Original file line number	Diff line number	Diff line change
`@@ -200,7 +200,7 @@ test_that("ppc_rootogram renders correctly", {`
`200`	`200`	`)`
`201`	`201`
`202`	`202`	`vdiffr::expect_doppelganger(`
`203`		`- title = "ppc_rootogram (style='discrete', prob, size, bound_distinct=FALSE)",`
	`203`	`+ title = "ppc_rootogram ('discrete', prob, size, bound_distinct=FALSE)",`
`204`	`204`	`fig = p_discrete_nonbound)`
`205`	`205`	`})`
`206`	`206`