diff --git a/R/Temporal.R b/R/Temporal.R
index e09c234..73ec41c 100644
--- a/R/Temporal.R
+++ b/R/Temporal.R
@@ -219,7 +219,7 @@ Temporal.Aggr <- function(CDS_rast, BaseResolution, BaseStep,
     # }
 
     if(length(unique(AggrIndex)) == 1){ ## this is to avoid a warning message thrown by terra
-      Final_rast <- tapp(x = CDS_rast,
+      Final_rast <- app(x = CDS_rast,
                          cores = Cores,
                          fun = FUN)
     }else{