Layers are named sequentally

CITATION.cff

@@ -8,7 +8,7 @@ message: 'To cite package "rasterpic" in publications use:'
 type: software
 license: MIT
 title: 'rasterpic: Convert Digital Images into ''SpatRaster'' Objects'
-version: 0.2.6
+version: 0.2.6.9000
 doi: 10.32614/CRAN.package.rasterpic
 identifiers:
 - type: doi
@@ -30,7 +30,7 @@ preferred-citation:
     orcid: https://orcid.org/0000-0001-8457-4658
   doi: 10.32614/CRAN.package.rasterpic
   year: '2025'
-  version: 0.2.6
+  version: 0.2.6.9000
   url: https://dieghernan.github.io/rasterpic/
   abstract: Generate SpatRaster objects, as defined by the terra package, from digital
     images, using a specified spatial object as a geographical reference.

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: rasterpic
 Title: Convert Digital Images into 'SpatRaster' Objects
-Version: 0.2.6
+Version: 0.2.6.9000
 Authors@R: 
     person("Diego", "Hernangómez", , "[email protected]", role = c("aut", "cre", "cph"),
            comment = c(ORCID = "0000-0001-8457-4658"))

NEWS.md

@@ -1,3 +1,10 @@
+# rasterpic (development version)
+
+-   When the output has 3 or more layers, the first three are renamed as
+    `"r", "g", "b"`. In cases with 4 layers or more the fourth layer is renames
+    as `"alpha"`. This allows compatibility with **tmap** `>= 4.0` avoiding
+    error `! [subset] you cannot select a layer with a name that is not unique`.
+
 # rasterpic 0.2.6
 
 -   Update documentation.

R/rasterpic_img.R

@@ -278,7 +278,15 @@ rasterpic_img <- function(x, img, halign = .5, valign = .5, expand = 0,
     if (!terra::has.RGB(new_rast)) {
       terra::RGB(new_rast) <- c(1, 2, 3)
     }
+
+    # Rename RGB channels
+    nms <- names(new_rast)
+    nms[c(1, 2, 3)] <- c("r", "g", "b")
+
+    if (length(nms) >= 4) nms[4] <- "alpha"
+    names(new_rast) <- nms
   }
 
+
   return(new_rast)
 }

README.md

@@ -90,9 +90,9 @@ uk_flag
 #> coord. ref. : WGS 84 / Pseudo-Mercator (EPSG:3857) 
 #> source(s)   : memory
 #> colors RGB  : 1, 2, 3 
-#> names       : lyr.1, lyr.2, lyr.3 
-#> min values  :     0,    14,    35 
-#> max values  :   255,   255,   255
+#> names       :   r,   g,   b 
+#> min values  :   0,  14,  35 
+#> max values  : 255, 255, 255
 
 # Plot it!
 # Using ggplot2 + tidyterra
@@ -142,7 +142,7 @@ A BibTeX entry for LaTeX users is:
       doi = {10.32614/CRAN.package.rasterpic},
       author = {Diego Hernangómez},
       year = {2025},
-      version = {0.2.6},
+      version = {0.2.6.9000},
       url = {https://dieghernan.github.io/rasterpic/},
       abstract = {Generate SpatRaster objects, as defined by the terra package, from digital images, using a specified spatial object as a geographical reference.},
     }

codemeta.json

@@ -8,13 +8,13 @@
   "codeRepository": "https://github.com/dieghernan/rasterpic",
   "issueTracker": "https://github.com/dieghernan/rasterpic/issues",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.2.6",
+  "version": "0.2.6.9000",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
     "url": "https://r-project.org"
   },
-  "runtimePlatform": "R version 4.4.2 (2024-10-31 ucrt)",
+  "runtimePlatform": "R version 4.4.2 (2024-10-31)",
   "provider": {
     "@id": "https://cran.r-project.org",
     "@type": "Organization",
@@ -160,7 +160,7 @@
     "SystemRequirements": null
   },
   "keywords": ["cran", "jpeg", "jpg", "maps", "png", "r", "r-package", "r-stats", "raster", "rstats", "sf", "terra", "tif", "tiff", "cran-r"],
-  "fileSize": "1156.638KB",
+  "fileSize": "1157.549KB",
   "citation": [
     {
       "@type": "SoftwareSourceCode",

inst/schemaorg.json

@@ -28,8 +28,8 @@
         "name": "Comprehensive R Archive Network (CRAN)",
         "url": "https://cran.r-project.org"
       },
-      "runtimePlatform": "R version 4.4.2 (2024-10-31 ucrt)",
-      "version": "0.2.6"
+      "runtimePlatform": "R version 4.4.2 (2024-10-31)",
+      "version": "0.2.6.9000"
     },
     {
       "id": "https://doi.org/10.32614/CRAN.package.rasterpic",

tests/testthat/test-fileformat.R

@@ -183,6 +183,9 @@ test_that("Test transparent", {
   )
 
   raster <- rasterpic_img(x, img)
+
+  expect_identical(names(raster), c("r", "g", "b", "alpha"))
+
   expect_true(terra::has.RGB(raster))
 
   png_dim <- png::readPNG(img)

tests/testthat/test-nlayers.R

@@ -23,6 +23,7 @@ test_that("Check how it works with 2 layer file", {
   )
 
   r <- rasterpic_img(x, img)
+  expect_identical(names(r), c("r", "g", "b"))
 
   # Write as geotiff with 2 layers
 

vignettes/articles/plots.Rmd

@@ -22,7 +22,7 @@ with several packages.
 The most straightforward option is to use the base `plot()` methods provided by
 the package **terra** (`terra::plotRGB()`):
 
-```{r setup}
+```{r setup, fig.alt="Example: plot with terra package"}
 library(rasterpic)
 library(terra)
 
@@ -46,7 +46,7 @@ plotRGB(uk_img)
 
 **tidyterra** provides full support for **terra** `SpatRaster` objects:
 
-```{r}
+```{r tterra, fig.alt="Example: plot with tidyterra package"}
 library(ggplot2)
 library(tidyterra)
 
@@ -58,7 +58,7 @@ ggplot() +
 
 **tmap** can be also used to create great maps:
 
-```{r}
+```{r tmap, fig.alt="Example: plot with tmap package"}
 library(tmap)
 
 tm_shape(uk_img) +
@@ -70,7 +70,7 @@ tm_shape(uk_img) +
 
 **mapsf** also provides this functionality:
 
-```{r}
+```{r mapsf, fig.alt="Example: plot with mapsf package"}
 library(mapsf)
 
 mf_raster(uk_img)
@@ -86,7 +86,7 @@ mf_inset_off()
 map tiles from different providers. It also has a specific function for plotting
 **terra** `SpatRaster` objects:
 
-```{r}
+```{r maptiles, fig.alt="Example: plot with maptiles package"}
 library(maptiles)
 
 other_tile <- get_tiles(uk, crop = TRUE, zoom = 6)