Standardize download methods

Permian-Global-Research · Aug 25, 2023 · 8cdd1cc · 8cdd1cc
1 parent 4506c38
commit 8cdd1cc
Show file tree

Hide file tree

Showing 17 changed files with 372 additions and 605 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -16,9 +16,10 @@ Imports:
     proceduralnames,
     rlang,
     rstac,
+    sf,
+    terra,
     tibble
 Suggests: 
-    terra,
     testthat (>= 3.0.0)
 Config/testthat/edition: 3
 LazyData: true
diff --git a/R/calculate_indices.R b/R/calculate_indices.R
@@ -58,3 +58,23 @@ calculate_indices <- function(raster,
   )
   output_filename
 }
+
+check_indices <- function(remap_band_names, indices, call = rlang::caller_env()) {
+  good <- TRUE
+  if (!is.null(remap_band_names)) {
+    good <- vapply(
+      indices$bands,
+      \(bands) all(bands %in% unlist(remap_band_names)),
+      logical(1)
+    )
+  }
+
+  if (!any(good)) {
+    rlang::abort(
+      "Some indices cannot be calculated using the available image bands.",
+      call = call,
+      class = "rsi_missing_indices"
+    )
+  }
+}
+
diff --git a/R/check_indices.R b/R/check_indices.R
diff --git a/R/get_dem.R b/R/get_dem.R
diff --git a/R/get_items.R b/R/get_items.R
diff --git a/R/get_landsat_imagery.R b/R/get_landsat_imagery.R