check parameters give error if defaults not entered

worldbank · May 9, 2024 · 6cb36e3 · 6cb36e3
1 parent 0619b35
commit 6cb36e3
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/R/blackmarbler.R b/R/blackmarbler.R
@@ -632,6 +632,13 @@ bm_extract <- function(roi_sf,
     stop("roi must be an sf object")
   }
 
+  # Required parameters used in try statement, so error not generated when used, 
+  # so use them here
+  roi_sf <- roi_sf
+  product_id <- product_id
+  date <- date
+  bearer <- bearer
+
   # Assign interpolation variables ---------------------------------------------
   if(interpol_na == T){
     if(!exists("method")) method <- "linear"
@@ -991,6 +998,13 @@ bm_raster <- function(roi_sf,
     stop("roi must be an sf object")
   }
 
+  # Required parameters used in try statement, so error not generated when used, 
+  # so use them here
+  roi_sf <- roi_sf
+  product_id <- product_id
+  date <- date
+  bearer <- bearer
+
   # Assign interpolation variables ---------------------------------------------
   if(interpol_na == T){
     if(!exists("method")) method <- "linear"