From 269119dbc147742a80879e30b291fb9e814d5624 Mon Sep 17 00:00:00 2001
From: mitchelloharawild <mitch.ohara-wild@monash.edu>
Date: Tue, 17 Sep 2024 12:40:23 +1000
Subject: [PATCH] Supress warnings for checking closed limits for default
 support method

---
 R/default.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/default.R b/R/default.R
index 160b557a..0ca93201 100755
--- a/R/default.R
+++ b/R/default.R
@@ -81,7 +81,10 @@ support.dist_default <- function(x, ...) {
     c(FALSE, FALSE)
   } else {
     # Default to open limits on error
-    lim_dens <- tryCatch(density(x, lims), error = function(e) c(0,0))
+    lim_dens <- tryCatch(
+      suppressWarnings(density(x, lims)),
+      error = function(e) c(0,0)
+    )
     !near(lim_dens, 0)
   }
   new_support_region(