Compare with all.equal()

hsonne · hsonne · commit 47ccf8acf54e · 2025-04-04T10:09:44.000+02:00
Try to fix error on Linux
diff --git a/R/triangle_of_fractions.R b/R/triangle_of_fractions.R
@@ -20,7 +20,7 @@ triangle_of_fractions <- function(
     fractions, fractions_2 = NULL, cols = c("blue", "red", "darkgreen")
 )
 {
-  stopifnot(sum(fractions) == 1)
+  stopifnot(all.equal(sum(fractions), 1))
 
   fractions_to_colour <- function(x) {
     if (!is.null(x)) {

Original file line number	Diff line number	Diff line change
`@@ -20,7 +20,7 @@ triangle_of_fractions <- function(`
`20`	`20`	`fractions, fractions_2 = NULL, cols = c("blue", "red", "darkgreen")`
`21`	`21`	`)`
`22`	`22`	`{`
`23`		`- stopifnot(sum(fractions) == 1)`
	`23`	`+ stopifnot(all.equal(sum(fractions), 1))`
`24`	`24`
`25`	`25`	`fractions_to_colour <- function(x) {`
`26`	`26`	`if (!is.null(x)) {`