Fixed one function pipe bug

added documentation also

Author: hsamuelson

README.md

@@ -51,6 +51,13 @@ To run a module simply type ```** moduleName```. It is important to note, the mo
   ### Pipe Operators 
   The pipe operator is ```**<<```. To input the output of one module into another is straight forward. To input ```mod1``` into ```mod2``` simply write: ```mod1 **<< mod2```. So far this is not supported with all languages. 
 ## Compiling InterOp
-For now, simply run the batfile: ```interOp.bat``` from cmd. The interpreter only reads from one file ```mainscript.txt```.
+For now from commandline/powershell run the ```interOp.bat``` file with an ```.interOp``` file as its arg. This will look like this:
+```
+interOp.bat ".\scripts\python.interOp"
+```
+This powershell command will run the python file assuming you have python installed. You can find examples for all supported languages, inside the ```/scripts``` folder. If you want an example of what it looks like to run muiltiple language in one file see ```mainScript.interOp``` but as a warning you need all supported languages installed to properlly run. <br>
+There are a few valid command line args for ```interOp.bat```. Passing it no arg means it will allow you to select a file via a GUI. This would look like ```interOp.bat``` in the console. 
+Inputing the number ```1``` as an arg will default the script to reading ```mainScript.interOp```.
+
 #### From R:
 You can also run the ```interpreter.R``` file to process the code. If you want to run it in a live R enviorment, simply load ```interpreter.R``` and then run ```master()``` to re-run code.

interpreter.R

@@ -7,7 +7,7 @@
 # TO read console input for ths program
 rm(list=ls()) #This clears all system vars to avoid errors
 args <- commandArgs(trailingOnly = TRUE)
-loadScrit <- function(){
+loadScript <- function(){
   fileName <- ""
   if(is.na(args[1])){
     fileName <- choose.files()
@@ -21,11 +21,15 @@ loadScrit <- function(){
 if (!require("foreach")) install.packages("foreach", repos='http://cran.us.r-project.org') # The new parallel version requires library parallels
 library(foreach)
 
-script <- suppressWarnings(readLines("mainScript.interOp")) #This triggers a warning but not an concern
-script <- suppressWarnings(readLines("scripts/r.interOp")) #This triggerss a warning but not an concern
+
 
 # From loading from a file have to conver to table matrix
-#script <- suppressWarnings(readLines(loadScrit()))
+script <- suppressWarnings(readLines(loadScript()))
+
+## UNCOMMENT THESE FOR DEV
+
+#script <- suppressWarnings(readLines("mainScript.interOp")) #This triggers a warning but not an concern
+#script <- suppressWarnings(readLines("scripts/r.interOp")) #This triggerss a warning but not an concern
 script <- as.matrix(script)
 
 # Remove all comments  #######THIS COULD ALL BE NOT WORKING BC YOU HAVENT REDEFINED IT AS A MATRIX?
@@ -93,7 +97,8 @@ if(length(allbounds) != 3) {
   titleRows <- as.integer(allbounds[,1])
 
 } else if(length(allbounds) == 3 ) {
-  titleRows <- as.integer(allbounds[,1])
+  allbounds <- rbind(allbounds)
+  titleRows <- as.integer(allbounds[1])
 } else {
   print("faital script error")
 }