R support for unix

Author: hsamuelson

processRequest.R

@@ -36,7 +36,7 @@ processFunction <- function(indexIn, argument = ""){
     # If not run the file generation process
     # If it exsists simplily run the script with the argument
     if(file.exists(fileName)){
-      result <- system(paste(paste0(Sys.getenv("R_HOME"), "/bin/Rscript.exe", collapse =""), fileName, argument), intern = T)
+      result <- system(paste(r_path, fileName, argument), intern = T)
       return(result)
       # The program should'nt get past this point if the file does exsist so we don't need an else{} statement
     } 
@@ -51,7 +51,7 @@ processFunction <- function(indexIn, argument = ""){
     }
 
     writeLines(as.character(wFinal), con = fileName, sep = "\n",  useBytes = FALSE) # auto indents lines
-    result <- system(paste(paste0(Sys.getenv("R_HOME"), "/bin/Rscript.exe", collapse =""), fileName, argument), intern = T)
+    result <- system(paste(r_path, fileName, argument), intern = T)
     # Call dataType Processorn to test data types
 
     #file.remove(fileName)

setPaths.R

@@ -16,7 +16,15 @@
 # Then get them into system vars that can be accessed later.
 path_list <- read.csv("dataTypes/paths.csv")
 
-# r_path <- path_list$path[] # Doesnt need this path
+# The R path has to be different given the os_version (system var)
+if(os_version == 0){
+  # Windows
+  # This looks for your R version are runs
+  r_path <- paste0(Sys.getenv("R_HOME"), "/bin/Rscript.exe", collapse ="")
+} else {
+  # Unix 
+  r_path <- "Rscript"
+}
 python_path <- path_list$path[2]
 js_path <- path_list$path[3]
 lua_path <- path_list$path[4]