fix off by 1!!

hypertidy · Apr 25, 2024 · de4f139 · de4f139
1 parent e1cb2ac
commit de4f139
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: grout
 Title: Create Raster Tiles
-Version: 0.0.2.9007
+Version: 0.0.2.9009
 Authors@R: person("Michael D.", "Sumner", email = "[email protected]", role = c("aut", "cre"))
 Description: Create raster tiles abstractly. 
 Depends:

diff --git a/R/tile_spec.R b/R/tile_spec.R
@@ -99,7 +99,7 @@ tile_spec <- function(dimension, extent, zoom = 0, blocksize = c(256L, 256L),
   tt$ymax <- transform[4] -  (tt$tile_row) * tilesize[2]
   ## now that we have calculated each tile extent, switch to TMS mode
   if (!xyz) {
-    tt$tile_row <- idimension[2] %/% blocksize[2] - tt$tile_row
+    tt$tile_row <- (idimension[2] %/% blocksize[2]) - tt$tile_row - 1
   }
   tt$ncol <- blocksize[1]
   tt$nrow <- blocksize[2]