pass ask arg from parent to vrt() call

bcgov · Oct 21, 2024 · c955c9f · c955c9f
1 parent 810910f
commit c955c9f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/cded.R b/R/cded.R
@@ -107,7 +107,7 @@ cded_stars <- function(aoi = NULL, tiles_50K = NULL, .predicate = sf::st_interse
     tiles_50K = tiles_50K,
     .predicate = .predicate,
     dest_vrt = dest_vrt,
-    ask = interactive(),
+    ask = ask,
     check_tiles = check_tiles
   )
 
@@ -139,7 +139,7 @@ cded_terra <- function(aoi = NULL, tiles_50K = NULL, .predicate = sf::st_interse
     tiles_50K = tiles_50K,
     .predicate = .predicate,
     dest_vrt = dest_vrt,
-    ask = interactive(),
+    ask = ask,
     check_tiles = check_tiles
   )
 
@@ -183,7 +183,7 @@ cded_raster <- function(aoi = NULL, tiles_50K = NULL, .predicate = sf::st_inters
     tiles_50K = tiles_50K,
     .predicate = .predicate,
     dest_vrt = dest_vrt,
-    ask = interactive(),
+    ask = ask,
     check_tiles = check_tiles
   )