Ensure quiet flag is passed through appropriately

ateucher · Oct 19, 2023 · aa5cb33 · aa5cb33
1 parent 18d6c30
commit aa5cb33
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/R/clip_erase.R b/R/clip_erase.R
@@ -426,6 +426,11 @@ mapshaper_clip_erase <- function(target_layer, overlay_layer, bbox, type,
       if (isTRUE(gj2008)) {
         command <- paste(command, "gj2008")
       }
+
+      if (isTRUE(quiet)) {
+        command <- paste(command, "-quiet")
+      }
+
       # Create an object to hold the return value
       ms$eval("var return_data;")
 

diff --git a/R/utils.R b/R/utils.R
@@ -66,7 +66,12 @@ apply_mapshaper_commands <- function(
       out_flags <- paste("-o", add_id, gj2008)
     }
 
-    command <- c(command, out_flags)
+    command <- c(
+      command,
+      out_flags,
+      if (quiet) "-quiet"
+    )
+
     command <- paste(ms_compact(command), collapse = " ")
 
     ms <- ms_make_ctx()