reverse order of cell_size and res_size

b-cubed-eu · Nov 20, 2024 · 42ef290 · 42ef290
1 parent 05388cf
commit 42ef290
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/check_cell_size.R b/R/check_cell_size.R
@@ -13,7 +13,7 @@ check_cell_size <- function(cell_size, cell_size_units, resolution, level) {
 
         res_size <- as.numeric(stringr::str_extract(resolution, "[0-9]*(?=km)"))
 
-        if (res_size %% cell_size != 0) {
+        if (cell_size %% res_size != 0) {
 
           stop("cell_size must be a whole number multiple of the resolution.
                For example, if resolution is 1 km, cell_size can be 1, 2, 3,.. 10,.. 100, etc.")
@@ -35,7 +35,7 @@ check_cell_size <- function(cell_size, cell_size_units, resolution, level) {
 
         res_size <- as.numeric(stringr::str_extract(resolution, "[0-9,.]*(?=degrees)"))
 
-        if (res_size %% cell_size != 0) {
+        if (cell_size %% res_size != 0) {
 
           stop("cell_size must be a whole number multiple of the resolution.
                For example, if resolution is 0.25 degrees, cell_size can be 0.25, 0.5, 0.75, 1, etc.")