From 0239eb80cf54381a172c39cf951221b7964a9fab Mon Sep 17 00:00:00 2001
From: "Alec L. Robitaille" <robit.alec@gmail.com>
Date: Wed, 23 Aug 2023 13:15:45 -0300
Subject: [PATCH] print areaDT output

---
 R/group_polys.R    | 1 +
 man/group_polys.Rd | 1 +
 2 files changed, 2 insertions(+)

diff --git a/R/group_polys.R b/R/group_polys.R
index 0a5a264..3b079bd 100644
--- a/R/group_polys.R
+++ b/R/group_polys.R
@@ -101,6 +101,7 @@
 #' areaDT <- group_polys(DT, area = TRUE, hrType = 'mcp',
 #'                       hrParams = list(percent = 95), projection = utm,
 #'                       id = 'ID', coords = c('X', 'Y'))
+#' print(areaDT)
 group_polys <-
   function(DT = NULL,
            area = NULL,
diff --git a/man/group_polys.Rd b/man/group_polys.Rd
index 9037aed..ad4c062 100644
--- a/man/group_polys.Rd
+++ b/man/group_polys.Rd
@@ -131,6 +131,7 @@ group_polys(DT, area = FALSE, hrType = 'mcp',
 areaDT <- group_polys(DT, area = TRUE, hrType = 'mcp',
                       hrParams = list(percent = 95), projection = utm,
                       id = 'ID', coords = c('X', 'Y'))
+print(areaDT)
 }
 \seealso{
 \code{\link[=build_polys]{build_polys()}} \code{\link[=group_times]{group_times()}}