...

Author: be-marc

DESCRIPTION

@@ -17,7 +17,7 @@ URL: https://mlr3spatial.mlr-org.com,
     https://github.com/mlr-org/mlr3spatial
 BugReports: https://github.com/mlr-org/mlr3spatial/issues
 Depends:
-    mlr3 (>= 1.1.0),
+    mlr3 (>= 1.2.0),
     R (>= 3.1.0)
 Imports:
     checkmate (>= 2.0.0),

R/data.R

@@ -98,6 +98,7 @@ generate_stack = function(layers, layer_size = NULL, dimension = NULL, multi_lay
     if (layer$type == "numeric") {
       data = matrix(c(stats::rnorm(floor(dimension^2 / 2), 0, 1), stats::rnorm(ceiling(dimension^2 / 2), 1, 1)), nrow = dimension)
       ras = rast(data)
+      terra::crs(ras) = "EPSG:4326"
       if (!layer$in_memory && !multi_layer_file) {
         filename = tempfile(fileext = ".tif")
         writeRaster(ras, filename)
@@ -107,6 +108,7 @@ generate_stack = function(layers, layer_size = NULL, dimension = NULL, multi_lay
     } else if (layer$type == "factor") {
       data = matrix(rep(seq_along(layer$levels), each = floor(dimension^2 / length(layer$levels)), length.out = dimension^2), nrow = dimension)
       ras = rast(data)
+      terra::crs(ras) = "EPSG:4326"
       ras = terra::categories(ras, layer = 1, data.table(ID = seq_along(layer$levels), category = layer$levels))
       if (!layer$in_memory && !multi_layer_file) {
         filename = tempfile(fileext = ".tif")
@@ -117,6 +119,7 @@ generate_stack = function(layers, layer_size = NULL, dimension = NULL, multi_lay
     } else if (layer$type == "weights") {
       data = matrix(runif(dimension^2, 0, 1), nrow = dimension)
       ras = rast(data)
+      terra::crs(ras) = "EPSG:4326"
       if (!layer$in_memory && !multi_layer_file) {
         filename = tempfile(fileext = ".tif")
         writeRaster(ras, filename)

tests/testthat/test_DataBackendRaster.R

@@ -273,7 +273,7 @@ test_that("data prototyp works", {
   )
   backend = DataBackendRaster$new(stack)
 
-  expect_data_table(backend$data(rows = integer(0), cols = c("x_1", "y")), nrows = 0, ncols = 2)
+  suppressWarnings(expect_data_table(backend$data(rows = integer(0), cols = c("x_1", "y")), nrows = 0, ncols = 2))
 })
 
 test_that("in memory rasters work", {