sppEquivalencies read from URL; landR removed from dependencies

Author: suz-estella

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

R/CBM-DB_species.R

@@ -24,17 +24,14 @@ utils::globalVariables(c(
 #' @importFrom data.table as.data.table
 sppMatch <- function(species, match = c("LandR", "Latin_full", "EN_generic_short", "EN_generic_full"),
                      otherNames = NULL, return = NULL, checkNA = !is.null(return),
-                     sppEquivalencies = NULL){
+                     sppEquivalencies = "https://github.com/PredictiveEcology/LandR/raw/refs/heads/development/data-raw/sppEquivalencies_CA.csv"){
 
   # Read species equivalencies table
-  if (is.null(sppEquivalencies)){
-    if (length(find.package("LandR", quiet = TRUE)) == 0) stop("LandR package required")
-    sppEquivalencies <- LandR::sppEquivalencies_CA
+  if (!is.data.frame(sppEquivalencies)){
+    sppEquivalencies <- data.table::fread(sppEquivalencies)
+  }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,])