test expectation should account for changes in the default color palette on r-devel

cpsievert · cpsievert · commit 71da78cefa38 · 2019-11-06T18:51:00.000-06:00
diff --git a/tests/testthat/test-ggplot-hline.R b/tests/testthat/test-ggplot-hline.R
@@ -68,7 +68,9 @@ test_that("hline/vline/abline split on linetype/colour/size", {
   
   expect_equivalent(
     unique(vapply(l$data, function(x) x$line$color, character(1))),
-    c("rgba(0,0,0,1)", "rgba(255,0,0,1)", "rgba(0,205,0,1)")
+    # Default palette colors are changing in R4.0...
+    # https://github.com/wch/r-source/commit/58eafa7#diff-038aeefcb87409db883f064615187949R2495
+    toRGB(if (getRversion() >= "4.0.0") c("black", "#DF536B", "#61D04F") else c("black", "red", "green3"))
   )
   
   expect_length(

Original file line number	Diff line number	Diff line change
`@@ -68,7 +68,9 @@ test_that("hline/vline/abline split on linetype/colour/size", {`
`68`	`68`
`69`	`69`	`expect_equivalent(`
`70`	`70`	`unique(vapply(l$data, function(x) x$line$color, character(1))),`
`71`		`- c("rgba(0,0,0,1)", "rgba(255,0,0,1)", "rgba(0,205,0,1)")`
	`71`	`+ # Default palette colors are changing in R4.0...`
	`72`	`+ # https://github.com/wch/r-source/commit/58eafa7#diff-038aeefcb87409db883f064615187949R2495`
	`73`	`+ toRGB(if (getRversion() >= "4.0.0") c("black", "#DF536B", "#61D04F") else c("black", "red", "green3"))`
`72`	`74`	`)`
`73`	`75`
`74`	`76`	`expect_length(`