From d068d3dad669dce93904e7f225f4cf778bae2c5c Mon Sep 17 00:00:00 2001 From: rhijmans Date: Thu, 24 Aug 2023 16:20:32 -0700 Subject: [PATCH] fixes #1251 --- R/zonal.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/zonal.R b/R/zonal.R index cffc3bbd3..57e1f7c65 100644 --- a/R/zonal.R +++ b/R/zonal.R @@ -63,7 +63,7 @@ setMethod("zonal", signature(x="SpatRaster", z="SpatRaster"), } else { sdf <- x@pnt$zonal(z@pnt, grast@pnt, txtfun, na.rm, opt) } - messages(sdf, "zonal") + sdf <- messages(sdf, "zonal") out <- .getSpatDF(sdf) nz <- 1 if (group) { @@ -151,8 +151,10 @@ setMethod("zonal", signature(x="SpatRaster", z="SpatRaster"), } else if (nz == 1){ nls <- as.character(1:nlyr(x)) colnames(out)[-1] <- nls + if (colnames(out)[1] == "layer") colnames(out)[1] <- "zone" out <- stats::reshape(out, direction="long", varying=nls, timevar="layer",v.names="value") out <- out[, c(2,1,3)] + rownames(out) <- NULL } out }