filter and informatively warn

R/density_area.R

@@ -102,6 +102,23 @@ density_polygons <- function(x,
                                          repair = "unique",
                                          quiet = TRUE)
 
+  na_filtered <- na_filter(x = x, y = y)
+
+  if(na_filtered$filtered){
+    x = na_filtered$values$x
+    y = na_filtered$values$y
+
+    x_total <- na_filtered$total$x
+    y_total <- na_filtered$total$y
+    cli::cli_warn(
+      c("Missing values dropped",
+        "i" = "{x_total} missing value{?s} in {xname}",
+        "i" = "{y_total} missing value{?s} in {yname}"
+      )
+    )
+  }
+
+
   isolines <- get_isolines_safely(x=x, y=y, probs=probs, ...)
 
   isolines |>