Merge pull request #1046 from OldLipe/master

Hotfix - fix integer overflow bug in `sits_classify()` segments
e-sensing · Nov 28, 2023 · f622356 · f622356
2 parents 8e8b9e6 + cfe8fca
commit f622356
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: sits
 Type: Package
-Version: 1.4.2-1
+Version: 1.4.2-2
 Title: Satellite Image Time Series Analysis for Earth Observation Data Cubes
 Authors@R: c(person('Rolf', 'Simoes', role = c('aut'), email = 'rolf.simoes@inpe.br'),
              person('Gilberto', 'Camara', role = c('aut', 'cre'), email = 'gilberto.camara.inpe@gmail.com'),

diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,9 @@
 
 # What's new in SITS version 1.4
 
+### Hotfix version 1.4.2-2
+* Fix integer overflow bug in `sits_classify()` segments
+
 ### Hotfix version 1.4.2-1
 * Fix crs bug in `sits_apply()`
 * Update file name in clean feature

diff --git a/R/api_segments.R b/R/api_segments.R
@@ -398,9 +398,10 @@
                                          progress) {
 
     # how much memory do we need?
-    req_memory <- .tile_nrows(tile)  * .tile_ncols(tile) *
-        length(.tile_timeline(tile)) * length(bands) * 4 *
-        .conf("processing_bloat_seg") / 1e+09
+    # Get image size
+    req_memory <- .as_dbl(.tile_nrows(tile)) * .as_dbl(.tile_ncols(tile))
+    req_memory <- req_memory * length(.tile_timeline(tile)) *
+        length(bands) * 4 * .conf("processing_bloat_seg") / 1e+09
 
     # do we have enough memory?
     if (req_memory < memsize) {