Skip monotonic transformation check if function is identity

mitchelloharawild · Sep 17, 2024 · 9e632cc · 9e632cc
1 parent 92546db
commit 9e632cc
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/transformed.R b/R/transformed.R
@@ -159,6 +159,9 @@ Ops.dist_transformed <- function(e1, e2) {
 }
 
 monotonic_increasing <- function(f, support) {
+  # Shortcut for identity function (used widely in ggdist)
+  if(identical(body(f), as.name(names(formals(f))))) return(TRUE)
+
   # Currently assumes (without checking, #9) monotonicity of f over the domain
   x <- f(field(support, "lim")[[1]])
   x[[2L]] > x[[1L]]