From d7ffc4ef1e0e576e69a1d2d13dacdf77aaf59396 Mon Sep 17 00:00:00 2001
From: Johannes Signer <jmsigner@gmail.com>
Date: Thu, 29 Aug 2024 10:46:51 +0200
Subject: [PATCH] fixed class for raster

---
 NAMESPACE      | 2 +-
 R/hr_area.R    | 2 +-
 man/hr_area.Rd | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 86bad43..38cb9eb 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -75,7 +75,7 @@ S3method(has_crs,hr)
 S3method(has_crs,steps_xy)
 S3method(has_crs,track_xy)
 S3method(hr_akde,track_xyt)
-S3method(hr_area,RasterLayer)
+S3method(hr_area,SpatRaster)
 S3method(hr_area,akde)
 S3method(hr_area,hr)
 S3method(hr_cud,SpatRaster)
diff --git a/R/hr_area.R b/R/hr_area.R
index 278f22b..2afaed0 100644
--- a/R/hr_area.R
+++ b/R/hr_area.R
@@ -27,7 +27,7 @@ hr_area.hr <- function(x, units = FALSE, ...) {
 
 #' @export
 #' @rdname hr_area
-hr_area.RasterLayer <- function(x, level = 0.95, ...) {
+hr_area.SpatRaster <- function(x, level = 0.95, ...) {
     hr_isopleths(x, level = level)$area
 }
 
diff --git a/man/hr_area.Rd b/man/hr_area.Rd
index dbad065..2919f66 100644
--- a/man/hr_area.Rd
+++ b/man/hr_area.Rd
@@ -3,7 +3,7 @@
 \name{hr_area}
 \alias{hr_area}
 \alias{hr_area.hr}
-\alias{hr_area.RasterLayer}
+\alias{hr_area.SpatRaster}
 \alias{hr_area.akde}
 \title{Home-range area}
 \usage{
@@ -11,7 +11,7 @@ hr_area(x, ...)
 
 \method{hr_area}{hr}(x, units = FALSE, ...)
 
-\method{hr_area}{RasterLayer}(x, level = 0.95, ...)
+\method{hr_area}{SpatRaster}(x, level = 0.95, ...)
 
 \method{hr_area}{akde}(x, units = FALSE, ...)
 }