From ac637ec921e46e96a382c26b0eb240edc7f3517a Mon Sep 17 00:00:00 2001
From: "Alec L. Robitaille" <robit.alec@gmail.com>
Date: Mon, 13 Mar 2023 19:33:09 -0300
Subject: [PATCH] fix always same unout as gArea

---
 R/build_polys.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/build_polys.R b/R/build_polys.R
index 15cb59f..74733e2 100644
--- a/R/build_polys.R
+++ b/R/build_polys.R
@@ -208,7 +208,9 @@ build_polys <- function(DT = NULL,
     verticesParam <- formals(adehabitatHR::getverticeshr.estUD)
 
     if (all(names(hrParams) %in% c(names(kernelParam), names(verticesParam)))) {
-
+      if (!('unout' %in% names(hrParams))) {
+        hrParams$unout <- 'm2'
+      }
       kern <- do.call(adehabitatHR::kernelUD,
                       hrParams[intersect(names(hrParams), names(kernelParam))])
       return(do.call(adehabitatHR::getverticeshr,