Suppress printing of dispersion execution to console

JoseEnrique04 · Apr 19, 2016 · 9a4368e · 9a4368e
1 parent 0710567
commit 9a4368e
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/hysplit_dispersion.R b/R/hysplit_dispersion.R
@@ -105,8 +105,8 @@ hysplit_dispersion <- function(lat = 49.263,
     run_day <- start_day
   }
 
-  # If SETUP.CFG or ASCDATA.CFG do not exist in the working
-  # directory, write default versions of those
+  # If SETUP.CFG or ASCDATA.CFG do not exist in the 
+  # working directory, write default versions of those
   # config files
   if (!("SETUP.CFG" %in% list.files()) |
       !("ASCDATA.CFG" %in% list.files())) {
@@ -637,14 +637,14 @@ hysplit_dispersion <- function(lat = 49.263,
     system(paste0("(cd ", getwd(), " && ",
                   system.file("osx/hycs_std",
                               package = "SplitR"),
-                  ")"))
+                  " >> /dev/null 2>&1)"))
   }
 
   if (get_os() == "unix") {
     system(paste0("(cd ", getwd(), " && ",
                   system.file("linux-amd64/hycs_std",
                               package = "SplitR"),
-                  ")"))
+                  " >> /dev/null 2>&1)"))
   }
 
   if (get_os() == "win") {