support() default method now uses open limits when density fails

mitchelloharawild · Sep 17, 2024 · 3fbf655 · 3fbf655
1 parent 9e632cc
commit 3fbf655
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/default.R b/R/default.R
@@ -80,7 +80,9 @@ support.dist_default <- function(x, ...) {
   closed <- if(any(is.na(lims))) {
     c(FALSE, FALSE)
   } else {
-    !near(density(x, lims), 0)
+    # Default to open limits on error
+    lim_dens <- tryCatch(density(x, lims), error = function(e) c(0,0))
+    !near(lim_dens, 0)
   }
   new_support_region(
     list(vctrs::vec_init(generate(x, 1), n = 0L)),