fix always same unout as gArea

ropensci · Mar 13, 2023 · ac637ec · ac637ec
1 parent 9d3d23d
commit ac637ec
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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,