refactor: use inMemory function

Author: be-marc

R/DataBackendRaster.R

@@ -40,7 +40,7 @@ DataBackendRaster = R6Class("DataBackendRaster",
 
       # write raster to disk
       sources = map_chr(names(data), function(layer) {
-        if (data[layer]@ptr$inMemory) {
+        if (terra::inMemory(data[layer])) {
           filename = tempfile(fileext = ".tif")
           terra::writeRaster(data[layer], filename = filename)
         } else {

tests/testthat/test_DataBackendRaster.R

@@ -287,7 +287,7 @@ test_that("in memory rasters work", {
 
   # backend
   expect_class(backend, "DataBackendRaster")
-  expect_equal(backend$stack@ptr$inMemory, c(FALSE, FALSE))
+  expect_equal(terra::inMemory(backend$stack), c(FALSE, FALSE))
   expect_names(names(backend$stack), identical.to = c("x_1", "c_1"))
 
   # active fields
@@ -346,7 +346,7 @@ test_that("in memory and disk rasters work", {
 
   # backend
   expect_class(backend, "DataBackendRaster")
-  expect_equal(backend$stack@ptr$inMemory, c(FALSE, FALSE))
+  expect_equal(terra::inMemory(backend$stack), c(FALSE, FALSE))
   expect_names(names(backend$stack), identical.to = c("x_1", "c_1"))
 
   # active fields