Fixed some unix-specific bugs

- Need to run Models.exe via mono, as it won't usually have execute
  permission set. e.g. `mono Models.exe $args`
- When running Models.exe, we need to quote some of the arguments,
  particularly the simulation name regex, otherwise shell expansion
  kicks in.

R/apsimx_wrapper.R

@@ -82,6 +82,10 @@ apsimx_wrapper <- function(model_options,
     stop(paste("apsimx file doesn't exist !", apsimx_file))
   }
   cmd <- paste(apsimx_path, '/Version')
+  # On unix systems, need to run via mono.
+  if (.Platform$OS.type == 'unix') {
+    cmd <- paste('mono', cmd)
+  }
   val <- system(cmd, wait = TRUE, intern = TRUE)
 
   if ( !is.null(attr(val, "status"))) {
@@ -140,14 +144,23 @@ apsimx_wrapper <- function(model_options,
 
     # Run apsimx ------------------------------------------------------------------
     cmd <- paste(apsimx_path, file_to_run)
+    # on unix, need to run via mono.
+    if (.Platform$OS.type == 'unix') {
+      cmd <- paste('mono', cmd)
+    }
     if (model_options$multi_process)  cmd <- paste(cmd, '/MultiProcess')
 
     if (!is.null(sit_var_dates_mask)) {
       # This generates a regular expression of simulation names using alternation
       # which will be passed to Models.exe to limit execution to the specified
       # simulation names.
       regex <- paste('(', paste(names(sit_var_dates_mask), collapse = ')|('), ')', sep = '')
-      cmd <- paste(cmd, ' /SimulationNameRegexPattern:', regex, sep = '')
+      if (.Platform$OS.type == 'unix') {
+        # on unix, need to escape the regex with quotes
+        cmd <- paste(cmd, " '/SimulationNameRegexPattern:", regex, "'", sep = '')
+      } else {
+        cmd <- paste(cmd, ' /SimulationNameRegexPattern:', regex, sep = '')
+      }
     }
 
     # Portable version for system call

R/change_apsimx_param.R

@@ -26,6 +26,10 @@ change_apsimx_param <- function(exe, file_to_run, param_values) {
 
   # Apply parameter changes to the model -----------------------------------------
   cmd <- paste(exe, file_to_run, '/Edit', config_file)
+  if (.Platform$OS.type == 'unix') {
+    # need to run via mono on unices
+    cmd <- paste('mono', cmd)
+  }
   #edit_file_stdout <- shell(cmd, translate = FALSE, intern = TRUE, mustWork = TRUE)
   edit_file_stdout <- system(cmd, wait = TRUE, intern = TRUE)