Fix #694

r-lidar · Aug 16, 2023 · 018d9f9 · 018d9f9
1 parent 8aeb5e7
commit 018d9f9
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/R/utils_raster.R b/R/utils_raster.R
@@ -211,7 +211,16 @@ raster_as_matrix <- function(raster, downsample = FALSE)
 #' @importFrom stats na.omit
 raster_as_dataframe <- function(raster,  xy = TRUE, na.rm = TRUE)
 {
-  if (raster_is_proxy(raster))
+  ondisk <- raster_is_proxy(raster)
+
+  # Small rasters can be loaded on the fly
+  if (ondisk & raster_fits_in_memory(raster, n = 10))
+  {
+    raster <- raster_in_memory(raster)
+    ondisk <- FALSE
+  }
+
+  if (ondisk)
     stop("On-disk rasters not supported in 'raster_as_dataframe()'", call. = FALSE) # nocov
 
   m <- raster_as_matrix(raster)