Minor cosmetic changes

r-spatialecology · Jun 25, 2024 · 1268c15 · 1268c15
1 parent b255026
commit 1268c15
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 13 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,9 @@
 # landscapemetrics 2.1.3
+* Bugfixes
+    * Fixed bug in `get_centroids()` related to the patch id
 * Various
     * Improve documentation
+    * Improve labels of `show_patches()`
 
 # landscapemetrics 2.1.2
 * Bugfixes

diff --git a/R/get_circumscribingcircle.R b/R/get_circumscribingcircle.R
@@ -85,19 +85,16 @@ get_circumscribingcircle_calc <- function(landscape, level, directions) {
         classes <- get_unique_values_int(landscape, verbose = FALSE)
 
         # loop all classes
-        circle <- do.call(rbind,
-                          lapply(classes, function(patches_class) {
-                              # get patches
-                              landscape_labeled <- get_patches_int(landscape,
-                                                                   class = patches_class,
-                                                                   directions = directions)[[1]]
-
-                              # get circle
-                              cbind(class = as.integer(patches_class),
-                                    rcpp_get_circle(landscape_labeled,
-                                                    resolution_xy = resolution[1]))
-                              })
-                          )
+        circle <- do.call(rbind, lapply(classes, function(patches_class) {
+
+            # get patches
+            landscape_labeled <- get_patches_int(landscape, class = patches_class,
+                                                 directions = directions)[[1]]
+
+            # get circle
+            cbind(class = as.integer(patches_class), rcpp_get_circle(landscape_labeled,
+                                                                     resolution_xy = resolution[1]))
+            }))
 
         # resulting tibble
         circle <- tibble::new_tibble(list(level = rep("patch", nrow(circle)),