From 7f6b4b9ecabb9053575df4d03d7baf4bdf70c2ad Mon Sep 17 00:00:00 2001
From: Cidree <adrian.cidre@gmail.com>
Date: Thu, 3 Oct 2024 13:52:17 +0200
Subject: [PATCH] canopy height now crops any CRS

---
 R/canopy-height.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/canopy-height.R b/R/canopy-height.R
index 72ecb56..3be67b7 100644
--- a/R/canopy-height.R
+++ b/R/canopy-height.R
@@ -181,7 +181,7 @@ fd_canopy_height <- function(x     = NULL,
   }
 
   # 5. Manage crop
-  if (crop) ch_sr <- crop(ch_sr, x, ...)
+  if (crop) ch_sr <- terra::crop(ch_sr, xwgs84, ...)
 
   # 6. Return
   return(ch_sr)