🐛 Fix #310

Author: mhesselbarth

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 = "[email protected]",

NEWS.md

@@ -1,3 +1,7 @@
+# landscapemetrics 2.1.0
+* Bugfixes
+    * Bugfix in calculate of clumpy if NA calc is present
+
 # landscapemetrics 2.1.0
 * Improvements
     * Many performance improvements. Most visible are in

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])

cran-comments.md

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