Fix linting issues

CityRiverSpaces · Sep 13, 2024 · 0905e62 · 0905e62
1 parent feb2dc8
commit 0905e62
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/delineate-corridor.R b/R/delineate-corridor.R
@@ -20,7 +20,9 @@ define_aoi <- function(bb, crs, buffer_dist = 0) {
               "Consider using a projected CRS when buffering the AoI.")
     }
     aoi <- sf::st_buffer(aoi, buffer_dist)
-  } else aoi
+  } else {
+    aoi
+  }
 }
 
 #' Split the area of interest (AoI) by a river.

diff --git a/tests/testthat/test-delineate-corridor.R b/tests/testthat/test-delineate-corridor.R
@@ -4,8 +4,7 @@ test_that("given bounding box coordinates and crs, a correct AoI is returned", {
   aoi <- define_aoi(bb, crs, buffer_dist = 0)
   coords <- sf::st_coordinates(aoi)
 
-  bb_expected <- matrix(coords[1:2, 1]) |>
-                 cbind(matrix(coords[2:3, 2])) |> t()
+  bb_expected <- cbind(matrix(coords[1:2, 1]), matrix(coords[2:3, 2])) |> t()
   colnames(bb_expected) <- c("min", "max")
   rownames(bb_expected) <- c("x", "y")
 
@@ -30,4 +29,3 @@ test_that("splitting an AoI by a river gives two areas of interest", {
 
   expect_equal(length(aoi_split), 2)
 })
-