add suffix for dduplicated date times (relevant for s2 images).

Permian-Global-Research · Jan 21, 2025 · ffe5b0e · ffe5b0e
1 parent 152303f
commit ffe5b0e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/get_stac_data.R b/R/get_stac_data.R
@@ -472,9 +472,10 @@ get_stac_data <- function(aoi,
 
   if (is.null(composite_function)) {
     app <- tryCatch(rstac::items_datetime(items), error = function(e) NA)
-    app <- gsub(":", "", app) # #29, #32
+    app <- gsub(":", "", app)
     if (any(is.na(app))) app <- NULL
-    app <- app %||% seq_along(download_results)
+    app <- app %||% as.character(seq_along(download_results))
+    app <- make.unique(app, sep = "_")
 
     output_filename <- paste0(
       tools::file_path_sans_ext(output_filename),