Merge pull request #136 from adamlilith/intuitive_fasterRaster

*fasterRaster* 8.4.1.1 (2025-11-18)

Author: adamlilith

.Rbuildignore

@@ -12,13 +12,12 @@ CODE_OF_CONDUCT.md
 ^\.vscode
 ^README\.Rmd$
 ^.lintr$
-^fasterRaster.code-workspace
 ^_pkgdown\.yml$
 ^docs$
 ^pkgdown$
 ^\.github$
 ^\vignettes\^junk
 junk
-fasterRaster_workspace.code-workspace
+workspace_fasterRaster.code-workspace
 ^doc$
 ^Meta$

.Rproj.user/shared/notebooks/paths

@@ -0,0 +1,2 @@
+C:/Kaji/R/fasterRaster/DESCRIPTION="BE5F8589"
+C:/Kaji/R/fasterRaster/NEWS.md="B2E56A81"

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: fasterRaster
 Type: Package
 Title: Faster Raster and Spatial Vector Processing Using 'GRASS'
-Version: 8.4.1.0
-Date: 2025-06-19
+Version: 8.4.1.1
+Date: 2025-11-18
 Authors@R: 
 	c(
 		person(
@@ -47,4 +47,4 @@ VignetteBuilder: knitr
 Encoding: UTF-8
 LazyData: true
 LazyLoad: yes
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3

NEWS.md

@@ -1,3 +1,19 @@
+# fasterRaster 8.4.1.1 (2025-11-18)
+### New functions and functionality
+o `+` can now combine any two `GVector`s with the same geometry type (points, lines, polygons).  
+o `installAddon()` checks to see if addon is already installed, and if so, uninstalls it before re-installing.  
+o Minor documentation updates.  
+
+### Bug fixes
+o `fast()` correctly adds names to `GRaster`s loaded from disk when a `_names.csv` file exists.  
+o `geomorphons()` now works when `mode = '2'`.  
+o `rbind()` combines `GVector` data tables when each vecto has the same number of rows in its table as geometries.  
+o `scale()` and `scalepop()` work when `center` and/or `scale` are numeric.  
+o `sf` example data objects (`madCoast0`, `madCoast4`, and `madRivers`) have had their CRSs harmonized with the example raster objects. This had caused some of the examples not to work.  
+
+### Other
+o Added error checking in `fragmentation()` related to limits on size of window `w` for calculation of fragmentation indices.  
+
 # fasterRaster 8.4.1.0 (2025-06-17)
 
 ### Code-breaking changes

R/04_arithmetic.r

@@ -8,7 +8,7 @@
 #' `*` operator: Same as [intersect()]\cr
 #' `/` operator: Same as [xor()]\cr
 #' 
-#' @param e1,e2 `GRaster`s, `numeric`s, `integer`s, or `logical`s.
+#' @param e1,e2 `GRaster`s, `GVector`s, `numeric`s, `integer`s, or `logical`s.
 #'
 #' @return A `GRaster`.
 #'
@@ -428,13 +428,21 @@ methods::setMethod(
 	signature(e1 = "GVector", e2 = "GVector"),
     function(e1, e2) {
 
+		gtype1 <- geomtype(e1)
+		gtype2 <- geomtype(e2)
+		if (gtype1 != gtype2) stop("Vectors must be of the same type (polygons, lines, or points).")
+
 		compareGeom(e1, e2)
 		.locationRestore(e1)
 
 		oper <- as.vector(.Generic)[1L]
 
 		if (oper == "+") {
-			out <- union(e1, e2)
+			if (gtype1 == "polygons" & gtype2 == "polygons") {
+				out <- union(e1, e2)
+			} else {
+				out <- rbind(e1, e2)
+			}
 		} else if (oper == "-") {
 			out <- erase(e1, e2)
 		} else if (oper == "*") {

R/addons.r

@@ -36,15 +36,24 @@ addons <- function(x = NULL) {
 installAddon <- function(x, check = TRUE) {
 
 	if (check) {
+
+		# is it available?
 		avails <- rgrass::execGRASS("g.extension", flags = c("l", .quiet()), intern = TRUE)
 		if (!(x %in% avails)) {
+
 			warning("The addon is not available on the official GRASS addon repository.")
 			return(invisible(FALSE))
+
 		}
 	}
 
+	# remove addon before re-installing
+	if (addons(x)) removeAddon(x, check = FALSE)
+
 	rgrass::execGRASS("g.extension", operation = "add", extension = x, flags = .quiet())
-	invisible(TRUE)
+	success <- addons(x)
+	if (!success) warning("Addon could not be installed.")
+	invisible(success)
 
 }
 

R/backdoor.r

@@ -2,22 +2,32 @@
 #'
 #' This is a secret function to be used for faster development of **fasterRaster**. It calls [faster()] to set the install directory for **GRASS**, increases default memory, and number of cores. The function assumes development is on a Windows machine.
 #'
+#' @param start Logical: If `TRUE`, start the **GRASS** session by creating the `madElev` `GRaster`.
 #' @param ver Character: **GRASS**: e.g., "83" or "84".
 #'
 #' @returns `TRUE` (invisibly).
 #'
 #' @keywords internal
-.backdoor <- function(ver = "84") {
+.backdoor <- function(start = FALSE, ver = "84") {
 
 	verNice <- paste0(substr(ver, 1L, 1L), ".", substr(ver, 2L, 2L))
 
 	faster(
 		grassDir = paste0("C:/Program Files/GRASS GIS ", verNice),
-		addonsDir = 'C:/Users/adame/AppData/Roaming/GRASS8/addons',
+		addonsDir = "C:/Users/adame/AppData/Roaming/GRASS8/addons",
 		memory = 1024 * 8,
 		cores = 2,
 		useDataTable = TRUE,
 		verbose = TRUE
 	)
-	invisible(TRUE)
+
+	if (start) {
+		madElev <- fastData("madElev")
+		elev <- fast(madElev)
+		out <- elev
+	} else {
+		out <- TRUE
+	}
+
+	invisible(out)
 }

R/fast.r

@@ -179,7 +179,16 @@ methods::setMethod(
 
 			xRast <- terra::rast(x)
 			nLayers <- terra::nlyr(xRast)
+			
 			xNames <- names(xRast)
+			fileExtension <- .fileExt(x)
+			nc <- nchar(fileExtension) + 1
+			namesFile <- substr(x, 1, nchar(x) - nc)
+			namesFile <- paste0(namesFile, '_names.csv')
+			if (file.exists(namesFile)) {
+				xNames <- utils::read.csv(namesFile)
+				xNames <- xNames$name
+			}
 
 			location <- .locationFind(xRast, match = "crs")
 

R/fastData.r

@@ -5,24 +5,24 @@
 #' @param x The name of the raster or spatial vector to get. All of these represent a portion of the eastern coast of Madagascar.
 #'
 #' Spatial vectors (objects of class `sf` from the **sf** package):
-#' * [madCoast0]: Outline of the region (polygon)
-#' * [madCoast4]: Outlines of the Fokontanies (Communes) of the region (polygons)
-#' * [madDypsis]: Records of plants of the genus *Dypsis* (points)
-#' * [madRivers]: Major rivers (lines)
+#' * [madCoast0][madCoast0]: Outline of the region (polygon)
+#' * [madCoast4][madCoast4]: Outlines of the Fokontanies (Communes) of the region (polygons)
+#' * [madDypsis][madDypsis]: Records of plants of the genus *Dypsis* (points)
+#' * [madRivers][madRivers]: Major rivers (lines)
 #'
 #' Rasters (objects of class `SpatRaster` from the **terra** package, saved as GeoTIFF files):
-#' * [madChelsa]: Bioclimatic variables
-#' * [madCover]: Land cover
-#' * [`madElev`][madElev]: Elevation
-#' * [madForest2000]: Forest cover in year 2000
-#' * [madForest2014]: Forest cover in year 2014
-#' * [madLANDSAT]: Surface reflectance in 2023
-#' * [madPpt], [madTmin], [madTmax]: Rasters of mean monthly precipitation, and minimum and maximum temperature.
+#' * [madChelsa][madChelsa]: Bioclimatic variables
+#' * [madCover][madCover]: Land cover
+#' * [madElev][madElev]: Elevation
+#' * [madForest2000][madForest2000]: Forest cover in year 2000
+#' * [madForest2014][madForest2014]: Forest cover in year 2014
+#' * [madLANDSAT][madLANDSAT]: Surface reflectance in 2023
+#' * [madPpt][madPpt], [madTmin][madTmin], [madTmax][madTmax]: Rasters of mean monthly precipitation, and minimum and maximum temperature.
 #'
 #' Data frames
-#' * [appFunsTable]: Table of functions usable by [app()]
-#' * [madCoverCats]: Land cover values and categories for [madCover]
-#' * [vegIndices]: Vegetation indices that can be calculated with [vegIndex()]
+#' * [appFunsTable][appFunsTable]: Table of functions usable by [app()]
+#' * [madCoverCats][madCoverCats]: Land cover values and categories for `madCover`
+#' * [vegIndices][vegIndices]: Vegetation indices that can be calculated with [vegIndex()]
 #'
 #' @return A `SpatRaster`, `sf` spatial vector, or a `data.frame`.
 #'

R/fasterRaster.r

@@ -322,11 +322,11 @@
 #' * Vignette on **fasterRaster** hidden functions: `vignette("hidden_functions", package = "fasterRaster")`
 #'
 #' ## Classes
-#' * [`GLocation`]: Fundamental class; points to a "location/project" in **GRASS**
-#' * [`GSpatial`]: Basic class of any spatial object
-#' * [`GRegion`]: Points to a "region" of a "location/project" in **GRASS**
-#' * [`GRaster`]: Raster class
-#' * [`GVector`]: Spatial vector class
+#' * [GLocation][GLocation]: Fundamental class; points to a "location/project" in **GRASS**
+#' * [GSpatial][GSpatial]: Basic class of any spatial object
+#' * [GRegion][GRegion]: Points to a "region" of a "location/project" in **GRASS**
+#' * [GRaster][GRaster]: Raster class
+#' * [GVector][GVector]: Spatial vector class
 #'
 #' @author Adam B. Smith
 #' @name fasterRaster