From 859b8ef4aa2b4b6df9e904efbc69db0e9504dd07 Mon Sep 17 00:00:00 2001
From: Susan Murray <murray.e.susan@gmail.com>
Date: Mon, 4 May 2026 08:47:13 -0700
Subject: [PATCH 1/2] sppEquivalencies read from URL; landR removed from
 dependencies

---
 .Rbuildignore      | 2 ++
 .gitignore         | 1 +
 DESCRIPTION        | 4 +---
 R/CBM-DB_species.R | 9 +++------
 4 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/.Rbuildignore b/.Rbuildignore
index 5d27354..6cbe52a 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -1,6 +1,8 @@
 ^\.github$
 ^.*\.Rproj$
 ^\.Rproj\.user$
+^\.positai$
+^\.claude$
 ^codecov\.yml$
 ^man-roxygen$
 ^README\.md$
diff --git a/.gitignore b/.gitignore
index 878d427..f573b49 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,5 +2,6 @@
 .Rhistory
 .RData
 .Ruserdata
+.positai
 inst/doc
 wip/
diff --git a/DESCRIPTION b/DESCRIPTION
index 4efb94d..22a3a9b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -5,7 +5,7 @@ Description: Implementation of several components of the Carbon Budget Model of
     Canadian Forest Service (v3).
 URL:
     https://github.com/PredictiveEcology/CBMutils
-Version: 2.5.3.9002
+Version: 2.5.4.9000
 Authors@R: c(
     person("Céline",    "Boisvenue", email = "celine.boisvenue@nrcan-rncan.gc.ca", role = c("aut", "cre")),
     person("Alex M",    "Chubaty",   email = "achubaty@for-cast.ca",               role = c("aut"), comment = c(ORCID = "0000-0001-7146-8135")),
@@ -42,13 +42,11 @@ Suggests:
     exactextractr,
     FNN,
     qs2,
-    LandR,
     reproducible,
     SpaDES.core,
     rmarkdown,
     testthat
 Remotes:
-    PredictiveEcology/LandR@development,
     PredictiveEcology/reproducible@development,
     PredictiveEcology/SpaDES.core@development
 VignetteBuilder: knitr, rmarkdown
diff --git a/R/CBM-DB_species.R b/R/CBM-DB_species.R
index c81a060..76f69ee 100644
--- a/R/CBM-DB_species.R
+++ b/R/CBM-DB_species.R
@@ -28,13 +28,10 @@ sppMatch <- function(species, match = c("LandR", "Latin_full", "EN_generic_short
 
   # Read species equivalencies table
   if (is.null(sppEquivalencies)){
-    if (length(find.package("LandR", quiet = TRUE)) == 0) stop("LandR package required")
-    sppEquivalencies <- LandR::sppEquivalencies_CA
+    sppEquiv <- data.table::fread("https://github.com/PredictiveEcology/LandR/raw/refs/heads/development/data-raw/sppEquivalencies_CA.csv")
+  }else{
+    sppEquiv <- data.table::as.data.table(sppEquivalencies)
   }
-  sppEquiv <- tryCatch(
-    as.data.table(sppEquivalencies),
-    error = function(e) stop(
-      "sppEquivalencies could not be converted to data.table: ", e$message, call. = FALSE))
 
   # Return 0 rows
   if (length(species) == 0) return(sppEquiv[0,])

From 3dbc857449414b6960073e11335eef2df8091d04 Mon Sep 17 00:00:00 2001
From: Susan Murray <murray.e.susan@gmail.com>
Date: Mon, 4 May 2026 11:31:22 -0700
Subject: [PATCH 2/2] CBMsourcePrepInputs test source update

---
 tests/testthat/test-Data-CBMsources.R | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/tests/testthat/test-Data-CBMsources.R b/tests/testthat/test-Data-CBMsources.R
index d2ac847..adc023c 100644
--- a/tests/testthat/test-Data-CBMsources.R
+++ b/tests/testthat/test-Data-CBMsources.R
@@ -5,17 +5,18 @@ test_that("CBMsourcePrepInputs", {
 
   inputPath <- file.path(testDirs$temp$outputs, "CBMsourcePrepInputs")
 
-  srcCBM <- CBMsourcePrepInputs("CanSIS-ecozone", inputPath = inputPath)
+  srcCBM <- CBMsourcePrepInputs("StatCan-admin", inputPath = inputPath)
   expect_is(srcCBM, "list")
-  expect_equal(srcCBM$attr, "ecozone")
   expect_is(srcCBM$source, "sf")
+  expect_equal(srcCBM$attr, "admin")
+  expect_true("admin" %in% names(srcCBM$source))
 
-  ## Backup test
-  # srcCBM <- CBMsourcePrepInputs("StatCan-admin", inputPath = inputPath)
+  ## Backup test: this source fails to download sometimes
+  # srcCBM <- CBMsourcePrepInputs("CanSIS-ecozone", inputPath = inputPath)
   # expect_is(srcCBM, "list")
-  # expect_equal(srcCBM$attr, "admin")
   # expect_is(srcCBM$source, "sf")
-  # expect_equal(names(srcCBM$source), c("admin", "geometry"))
+  # expect_equal(srcCBM$attr, "ecozone")
+  #  expect_true("ecozone" %in% names(srcCBM$source))
 })
 
 test_that("CBMsourceExtractToRast", {