Update classify_suitability_predictors.R

icraf-indonesia · Aug 6, 2024 · 34fed8c · 34fed8c
1 parent 8871d10
commit 34fed8c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/classify_suitability_predictors.R b/R/classify_suitability_predictors.R
@@ -43,11 +43,11 @@ classify_suitability_predictors <- function(raster_input, suitability_data) {
     filter(name_parameter %in% names(raster_input))
 
   if (suitability_data[["name_parameter"]][1] == "soil_texture") {
-    if (file.exists(system.file("extdata/lookup_tables/lookup_texture_usda.csv", package = "ALSA"))) {
+    if (file.exists(system.file("extdata/lookup_tables/lookup_texture_usda.csv", package = "LaSEM"))) {
       texture_lookup <- readr::read_csv(
         system.file(
           "extdata/lookup_tables/lookup_texture_usda.csv",
-          package = "ALSA"
+          package = "LaSEM"
         )
       ) |> select(texture_kemtan, TEXTURE_USDA)