more argument in solve

Author: vpotashnikov

R/compileCodeProduce.r

@@ -99,6 +99,14 @@ sm_compile_model <- function(obj,
     echo <- arg$echo
     arg <- arg[names(arg) != 'echo', drop = FALSE]
   } else echo <- TRUE
+  if (any(names(arg) == 'show.output.on.console')) {
+    show.output.on.console <- arg$show.output.on.console
+    arg <- arg[names(arg) != 'show.output.on.console', drop = FALSE]
+  } else show.output.on.console <- TRUE
+  if (any(names(arg) == 'invisible')) {
+    arg_invisible <- arg$invisible
+    arg <- arg[names(arg) != 'invisible', drop = FALSE]
+  } else arg_invisible <- TRUE
 #####################################################################################
 # Fill data to Code produce
 #####################################################################################
@@ -475,7 +483,8 @@ LL1 <- proc.time()[3]
     if(echo) cat('Preprocessing time: ', round(pp2 - pp1, 2), 's\n', sep = '')
     tryCatch({
       setwd(tmpdir)
-      rs <- system(paste('gams mdl.gms', gamsCompileParameter))
+      rs <- system(paste('gams mdl.gms', gamsCompileParameter), invisible = arg_invisible, 
+        show.output.on.console = show.output.on.console)
       setwd(BEGINDR)  
       if (rs != 0) stop(paste('Solution error code', rs))
     }, interrupt = function(x) {
@@ -566,14 +575,16 @@ LL1 <- proc.time()[3]
 #          rs <- system('glpsol -m glpk.mod -d glpk.dat --log log.csv') #, mustWork = TRUE)
 #          rs <- system('glpsol -m glpk.mod -d glpk.dat --log log.csv --xcheck') #, mustWork = TRUE)
 ## =======
-          rs <- system(paste('glpsol.exe -m glpk.mod -d glpk.dat --log log.csv', glpkCompileParameter))
+          rs <- system(paste('glpsol.exe -m glpk.mod -d glpk.dat --log log.csv', glpkCompileParameter), 
+          invisible = arg_invisible, show.output.on.console = show.output.on.console)
         } else {
           rs <- system(paste("cbc glpk.mod%glpk.dat -solve", cbcCompileParameter))
         }
       } else {
         if (solver  == 'GLPK') {
           rs <- system(paste('glpsol -m glpk.mod -d glpk.dat --log log.csv', 
-              glpkCompileParameter)) #, mustWork = TRUE)
+              glpkCompileParameter), invisible = arg_invisible, 
+        show.output.on.console = show.output.on.console) #, mustWork = TRUE)
 #>>>>>>> 00e795fd76161408e7b5782a3aaf58177d36e20e
         } else {
           rs <- system(paste("cbc glpk.mod%glpk.dat -solve", cbcCompileParameter))