added suppressWarning statements for unix

adokter · Dec 14, 2018 · a4896d3 · a4896d3
1 parent 7d3bed9
commit a4896d3
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/R/docker.R b/R/docker.R
@@ -10,12 +10,16 @@ check_docker <- function(verbose = TRUE) {
   docker_command_rm = "docker rm -f hello-world"
   docker_command_run = "docker run --name hello-world hello-world"
   if (.Platform$OS.type == "unix") {
-    system(docker_command_rm,
-      ignore.stderr = TRUE,
-      ignore.stdout = TRUE
+    suppressWarnings(
+      system(docker_command_rm,
+        ignore.stderr = TRUE,
+        ignore.stdout = TRUE
+      )
     )
-    result <- system(docker_command_run,
-      ignore.stderr = !verbose, ignore.stdout = !verbose
+    result <- suppressWarnings(
+        system(docker_command_run,
+        ignore.stderr = !verbose, ignore.stdout = !verbose
+      )
     )
   } else {
     suppressWarnings(