fixes r-spatial/sf#2375

r-spatial · Apr 10, 2024 · d9e84dd · d9e84dd
1 parent 242c91e
commit d9e84dd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: stars
 Title: Spatiotemporal Arrays, Raster and Vector Data Cubes
-Version: 0.6-5
+Version: 0.6-6
 Authors@R:
     c(person(given = "Edzer",
              family = "Pebesma",

diff --git a/R/aggregate.R b/R/aggregate.R
@@ -172,10 +172,10 @@ aggregate.stars = function(x, by, FUN, ..., drop = FALSE, join = st_intersects,
 	dims = dim(d)
 
 	agr_grps = function(x, grps, uq, FUN, ...) { 
-		do.call(rbind, lapply(uq, function(i) {
+		do.call(cbind, lapply(uq, function(i) {
 				sel <- which(grps == i)
 				if (!isTRUE(any(sel)))
-					rep(NA_real_, ncol(x))
+					NA_real_
 				else
 					apply(x[sel, , drop = FALSE], 2, FUN, ...)
 			}