Update DESCRIPTION, NAMESPACE, plotting.R, and docs

Author: pkalanta

DESCRIPTION

@@ -9,7 +9,7 @@ URL:
     https://landr.predictiveecology.org,
     https://github.com/PredictiveEcology/LandR
 Date: 2025-07-28
-Version: 1.1.5.9054
+Version: 1.1.5.9055
 Authors@R: c(
     person("Eliot J B", "McIntire", email = "eliot.mcintire@nrcan-rncan.gc.ca",
            role = c("aut", "cre"), comment = c(ORCID = "0000-0002-6914-8316")),

NAMESPACE

@@ -109,6 +109,7 @@ export(plotLeadingSpecies)
 export(plotSpatial)
 export(plotVTM)
 export(plotVegTransitions)
+export(plot_genericMap)
 export(prepEcoregions)
 export(prepEcozonesRst)
 export(prepInputsCanDEM)
@@ -227,6 +228,7 @@ importFrom(ggplot2,stat)
 importFrom(ggplot2,stat_summary)
 importFrom(ggplot2,sym)
 importFrom(ggplot2,theme)
+importFrom(ggplot2,theme_bw)
 importFrom(ggplot2,theme_classic)
 importFrom(ggplot2,unit)
 importFrom(ggpubr,theme_pubr)
@@ -363,3 +365,4 @@ importFrom(utils,install.packages)
 importFrom(utils,str)
 importFrom(utils,tail)
 importFrom(utils,untar)
+importFrom(viridis,scale_fill_viridis)

R/plotting.R

@@ -285,3 +285,31 @@ plotFunction <- function(ras, studyArea, limits = NULL) {
       title = sub("\\.|_", " ", names(ras))
     )
 }
+
+#' Plot function for generic SpatRaster objects with Plots
+#'
+#' @param x SpatRaster for current or cumulative harvest
+#' @param title character, the plot title
+#' @param subtitle character, the plot subtitle
+#'
+#' @returns ggplot object
+#' @export
+#' @importFrom ggplot2 ggplot ggtitle theme_bw labs
+#' @importFrom tidyterra geom_spatraster
+#' @importFrom viridis scale_fill_viridis
+plot_genericMap <- function(x, title = NULL, subtitle = NULL) {
+  if (!inherits(x, "SpatRaster")) {
+    stop("x must be a SpatRaster object.")
+  }
+
+  gg_gm <- ggplot() +
+    geom_spatraster(data = x) +
+    scale_fill_viridis(na.value = "transparent") +
+    theme_bw()
+
+  if (!is.null(title) || !is.null(subtitle)) {
+    gg_gm <- gg_gm + ggtitle(title) + labs(subtitle = subtitle)
+  }
+
+  gg_gm  # return ggplot object
+}