diff --git a/R/tiles.R b/R/tiles.R index e17926d3b..302191017 100644 --- a/R/tiles.R +++ b/R/tiles.R @@ -44,7 +44,7 @@ setMethod("getTileExtents", signature(x="SpatRaster"), error("getTileExtents", "y must be numeric or a SpatRaster or SpatVector") } messages(x, "getTileExtents") - e <- matrix(e, ncol=4, byrow=TRUE) + e <- matrix(e, ncol=4, byrow=FALSE) colnames(e) <- c("xmin", "xmax", "ymin", "ymax") e } diff --git a/src/raster_methods.cpp b/src/raster_methods.cpp index 769f955e3..317aa1065 100644 --- a/src/raster_methods.cpp +++ b/src/raster_methods.cpp @@ -117,7 +117,6 @@ SpatExtent SpatRaster::ext_from_cell( double cell) { std::vector SpatRaster::get_tiles_extent(SpatRaster x, bool expand, std::vector buffer) { - std::vector ee; x = x.geometry(1, false, false, false); SpatExtent e = getExtent(); @@ -134,25 +133,54 @@ std::vector SpatRaster::get_tiles_extent(SpatRaster x, bool expand, std: std::vector d(x.ncell()); std::iota(d.begin(), d.end(), 1); - ee.reserve(d.size()*4); - + std::vector> ee(4); + for (size_t i=0; i<4; i++) { + ee[i].reserve(d.size()); + } + SpatRaster y = geometry(1, false, false, false); for (size_t i=0; i 0) { + ee[0][k] = ee[1][k-1]; + } + if (i > 0) { + ee[3][k] = ee[2][k-nc]; + } + } + } - ee.push_back(ye.xmin); - ee.push_back(ye.xmax); - ee.push_back(ye.ymin); - ee.push_back(ye.ymax); + for (size_t i=0; i out; + out.reserve(ee[0].size() * 4); + + for (size_t i=0; i<4; i++) { + out.insert(out.end(), ee[i].begin(), ee[i].end()); + } + + return out; }