Supress warnings for checking closed limits for default support method

mitchelloharawild · Sep 17, 2024 · 269119d · 269119d
1 parent 3120cee
commit 269119d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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(