From d629d7a31ba69acf20096c76fb492e0cd5a54bc0 Mon Sep 17 00:00:00 2001
From: mitchellmanware <memanware@gmail.com>
Date: Wed, 13 Nov 2024 10:20:13 -0500
Subject: [PATCH] lint 2

---
 tests/testthat/test-calc.R |  2 +-
 tests/testthat/test-nlcd.R | 84 +++++++++++++++++++++++---------------
 2 files changed, 52 insertions(+), 34 deletions(-)

diff --git a/tests/testthat/test-calc.R b/tests/testthat/test-calc.R
index 02ff663d..6bf51b1e 100644
--- a/tests/testthat/test-calc.R
+++ b/tests/testthat/test-calc.R
@@ -1,5 +1,5 @@
 ################################################################################
-##### unit and integration tests for calculate_covariates and auxiliary functions
+##### unit and integration test for calculate_covariates and auxiliary functions
 
 ################################################################################
 ##### calculate_covariates
diff --git a/tests/testthat/test-nlcd.R b/tests/testthat/test-nlcd.R
index d991725c..acbc353e 100644
--- a/tests/testthat/test-nlcd.R
+++ b/tests/testthat/test-nlcd.R
@@ -149,52 +149,66 @@ testthat::test_that("calculate_nlcd", {
   testthat::expect_s4_class(nlcdras, "SpatRaster")
 
   testthat::expect_error(
-    calculate_nlcd(locs = eg_data,
-              from = nlcdras,
-              radius = "1000"),
+    calculate_nlcd(
+      locs = eg_data,
+      from = nlcdras,
+      radius = "1000"
+    ),
     "radius is not a numeric."
   )
   testthat::expect_error(
-    calculate_nlcd(locs = eg_data,
-              from = nlcdras,
-              mode = "whatnot",
-              radius = 1000)
+    calculate_nlcd(
+      locs = eg_data,
+      from = nlcdras,
+      mode = "whatnot",
+      radius = 1000
+    )
   )
   # -- buf_radius has likely value
   testthat::expect_error(
-    calculate_nlcd(locs = eg_data,
-              from = nlcdras,
-              radius = -3),
+    calculate_nlcd(
+      locs = eg_data,
+      from = nlcdras,
+      radius = -3
+    ),
     "radius has not a likely value."
   )
 
   # -- two modes work properly
   testthat::expect_no_error(
-    calculate_nlcd(locs = sf::st_as_sf(eg_data),
-              from = nlcdras,
-              mode = "exact",
-              radius = 1000)
+    calculate_nlcd(
+      locs = sf::st_as_sf(eg_data),
+      from = nlcdras,
+      mode = "exact",
+      radius = 1000
+    )
   )
   testthat::expect_no_error(
-    calculate_nlcd(locs = eg_data,
-              from = nlcdras,
-              mode = "terra",
-              radius = 300)
+    calculate_nlcd(
+      locs = eg_data,
+      from = nlcdras,
+      mode = "terra",
+      radius = 300
+    )
   )
   # -- multicore mode works properly
   testthat::expect_no_error(
-    calculate_nlcd(locs = eg_data,
-              from = nlcdras,
-              mode = "exact",
-              radius = 1000,
-              nthreads = 2L)
+    calculate_nlcd(
+      locs = eg_data,
+      from = nlcdras,
+      mode = "exact",
+      radius = 1000,
+      nthreads = 2L
+    )
   )
   testthat::expect_no_error(
-    calculate_nlcd(locs = eg_data,
-              from = nlcdras,
-              mode = "terra",
-              radius = 1000,
-              nthreads = 2L)
+    calculate_nlcd(
+      locs = eg_data,
+      from = nlcdras,
+      mode = "terra",
+      radius = 1000,
+      nthreads = 2L
+    )
   )
 
 
@@ -215,13 +229,17 @@ testthat::test_that("calculate_nlcd", {
     "NLCD data not available for this year."
   )
   testthat::expect_error(
-    calculate_nlcd(locs = 12,
-              locs_id = "site_id",
-              from = nlcdras)
+    calculate_nlcd(
+      locs = 12,
+      locs_id = "site_id",
+      from = nlcdras
+    )
   )
   testthat::expect_error(
-    calculate_nlcd(locs = eg_data,
-              from = 12)
+    calculate_nlcd(
+      locs = eg_data,
+      from = 12
+    )
   )
   # -- nlcd_path is not a character
   testthat::expect_error(