Merge branch 'dev' of https://github.com/e-sensing/sits into dev

R/api_mosaic.R

@@ -173,6 +173,13 @@
         tile = asset, band = .tile_bands(asset),
         version = version, output_dir = output_dir
     )
+    # Create a temporary output file name
+    # (this is required as in Windows machines, GDAL can't read and write
+    # using the same file)
+    out_file_base <- .file_crop_name(
+        tile = asset, band = .tile_bands(asset),
+        version = paste0(version, "mosaic"), output_dir = output_dir
+    )
     # Resume feature
     if (.raster_is_valid(out_file, output_dir = output_dir)) {
         .check_recovery(out_file)
@@ -202,8 +209,8 @@
         is_within <- .tile_within(asset, roi)
         if (is_within) {
             # Reproject tile for its crs
-            .gdal_reproject_image(
-                file = out_file, out_file = out_file,
+            out_file <- .gdal_reproject_image(
+                file = out_file, out_file = out_file_base,
                 crs = .as_crs(.tile_crs(asset)),
                 as_crs = .mosaic_crs(tile = asset, as_crs = crs),
                 miss_value = .miss_value(band_conf),
@@ -230,14 +237,16 @@
     # Crop and reproject tile image
     out_file <- .gdal_crop_image(
         file = out_file,
-        out_file = out_file,
+        out_file = out_file_base,
         roi_file = roi,
         as_crs = .mosaic_crs(tile = asset, as_crs = crs),
         miss_value = .miss_value(band_conf),
         data_type = .data_type(band_conf),
         multicores = 1,
         overwrite = TRUE
     )
+    # Move the generated file to use the correct name
+    file.rename(out_file_base, out_file)
     # Update asset metadata
     update_bbox <- if (.has(roi)) TRUE else FALSE
     asset <- .tile_from_file(

R/api_roi.R

@@ -133,6 +133,8 @@ NULL
     if (.has(as_crs)) {
         roi <- sf::st_transform(roi, crs = as_crs)
     }
+    # Clean roi
+    roi <- .sf_clean(roi)
     # Transform feature to multipolygons
     roi <- if (.has(nrow(roi)) && nrow(roi) > 1) sf::st_union(roi) else roi
     # Return roi