Merge pull request #313 from r-spatialecology/main

v2.1.1

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: landscapemetrics
 Title: Landscape Metrics for Categorical Map Patterns
-Version: 2.1.0
+Version: 2.1.1
 Authors@R: c(person("Maximilian H.K.", "Hesselbarth",
              role = c("aut", "cre"),
              email = "mhk.hesselbarth@gmail.com",

NEWS.md

@@ -1,3 +1,8 @@
+# landscapemetrics 2.1.1
+* Bugfixes
+    * Bugfix in calculate of clumpy if NA values are present
+    * Bugfix in construct_buffer that CRS was lost
+
 # landscapemetrics 2.1.0
 * Improvements
     * Many performance improvements. Most visible are in

R/construct_buffer.R

@@ -7,6 +7,7 @@
 #' @param size Size of sample plot. Equals the radius for circles or the
 #' side-length for squares in map units
 #' @param return_vec If TRUE, vector objects are returned.
+#' @param crs The coordinate reference system used for vector objects.
 #' @param verbose Print warning messages.
 #'
 #' @return
@@ -22,7 +23,7 @@
 #' @keywords internal
 #'
 #' @export
-construct_buffer <- function(coords, shape , size, return_vec = TRUE, verbose = TRUE) {
+construct_buffer <- function(coords, shape , size, return_vec = TRUE, crs="", verbose = TRUE) {
 
     # make sure coords are matrix
     coords <- points_as_mat(pts = coords)
@@ -80,7 +81,7 @@ construct_buffer <- function(coords, shape , size, return_vec = TRUE, verbose =
 
             mat <- matrix(x, ncol = 2)
 
-            terra::vect(x = mat, type = "polygon")
+            terra::vect(x = mat, type = "polygon", crs = crs)
 
         })
 

R/lsm_c_clumpy.R

@@ -105,7 +105,7 @@ lsm_c_clumpy_calc <- function(landscape, resolution, extras = NULL){
     clumpy <- vapply(seq_along(g_i), FUN = function(i) {
 
         # set to NA if mathematical not possible
-        if (is.nan(g_i[i]) || is.na(g_i[i]) || p_i[i] == 1) numeric(NA)
+        if (is.nan(g_i[i]) || is.na(g_i[i]) || p_i[i] == 1) as.numeric(NA)
         # calc clumpy
         else if (g_i[i] >= p_i[i]) (g_i[i] - p_i[i]) / (1 - p_i[i])
         else if (g_i[i] < p_i[i] && p_i[i] >= 0.5) (g_i[i] - p_i[i]) / (1 - p_i[i])

R/sample_lsm.R

@@ -111,12 +111,15 @@ sample_lsm_int <- function(landscape, y, plot_id, shape, size,
         # convert to terra
         y <- methods::as(y, "SpatVector")
 
+        # get crs
+        crs <- terra::crs(y)
+
         if (terra::geomtype(y) == "points") {
 
             if (is.null(size) | size == 0) stop("Please provide size argument size > 0.", call. = FALSE)
 
             y <- construct_buffer(coords = y, shape = shape, size = size,
-                                  return_vec = TRUE, verbose = verbose)
+                                  return_vec = TRUE, crs = crs, verbose = verbose)
 
         }
 

codemeta.json

@@ -7,7 +7,7 @@
   "codeRepository": "https://r-spatialecology.github.io/landscapemetrics/",
   "issueTracker": "https://github.com/r-spatialecology/landscapemetrics/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "2.1.0",
+  "version": "2.1.1",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
@@ -303,7 +303,7 @@
     },
     "SystemRequirements": null
   },
-  "fileSize": "1728.419KB",
+  "fileSize": "1728.517KB",
   "citation": [
     {
       "@type": "ScholarlyArticle",

cran-comments.md

@@ -1,3 +1,6 @@
+# landscapemetrics 2.1.1
+Minor bugfix
+
 # landscapemetrics 2.1.0
 Larger internal updates to several algorithms