Skip shortcut for primitive functions (TIL no body() or formals()!)

mitchelloharawild · Sep 17, 2024 · e9d7e99 · e9d7e99
1 parent 269119d
commit e9d7e99
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/transformed.R b/R/transformed.R
@@ -164,7 +164,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)
+  if(!is.primitive(f) && 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]])