Require monotonic_increasing to return TRUE or FALSE

mitchelloharawild · mitchelloharawild · commit 347deebd53c1 · 2024-09-17T15:33:22.000+10:00
diff --git a/R/transformed.R b/R/transformed.R
@@ -170,5 +170,5 @@ monotonic_increasing <- function(f, support) {
 
   # Currently assumes (without checking, #9) monotonicity of f over the domain
   x <- f(field(support, "lim")[[1]])
-  x[[2L]] > x[[1L]]
+  isTRUE(x[[2L]] > x[[1L]])
 }

Original file line number	Diff line number	Diff line change
`@@ -170,5 +170,5 @@ monotonic_increasing <- function(f, support) {`
`170`	`170`
`171`	`171`	`# Currently assumes (without checking, #9) monotonicity of f over the domain`
`172`	`172`	`x <- f(field(support, "lim")[[1]])`
`173`		`- x[[2L]] > x[[1L]]`
	`173`	`+ isTRUE(x[[2L]] > x[[1L]])`
`174`	`174`	`}`