write_RAST(): error in case SpatRaster already linked to GRASS db

stevenpawley · Jun 15, 2024 · a06e782 · a06e782
1 parent 4389249
commit a06e782
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 3 deletions.
diff --git a/R/rast_link.R b/R/rast_link.R
@@ -604,6 +604,18 @@ write_RAST <- function(
     } else {
       tf <- ""
     }
+    # exit when the source is a GRASS database layer already:
+    if (grepl("[/\\\\]cellhd[/\\\\][^/\\\\]+$", tf)) {
+      grass_layername <- regmatches(
+        tf,
+        regexpr("(?<=[/\\\\]cellhd[/\\\\])[^/\\\\]+$", tf, perl = TRUE)
+      )
+      stop(
+        "This SpatRaster already links to the following raster layer in the ",
+        "GRASS GIS database: ",
+        grass_layername
+      )
+    }
     if (!file.exists(tf)) {
       drv <- "RRASTER"
       fxt <- ".grd"

diff --git a/man/readRAST.Rd b/man/readRAST.Rd
@@ -63,9 +63,11 @@ if (run) {
   inMemory(v1)
 }
 if (run) {
-  write_RAST(v1, "landuse1", flags=c("o", "overwrite"))
-  execGRASS("r.stats", flags="c", input="landuse1")
-  execGRASS("g.remove", flags="f", name="landuse1", type="raster")
+  try({
+    write_RAST(v1, "landuse1", flags=c("o", "overwrite"))
+    execGRASS("r.stats", flags="c", input="landuse1")
+    execGRASS("g.remove", flags="f", name="landuse1", type="raster")
+  })
 }
 Sys.setenv("_SP_EVOLUTION_STATUS_"="2")
 run <- run && require("sp", quietly=TRUE)