Merge pull request #81 from IDEMSInternational/master

Updating master

instat/clsRSyntax.vb

@@ -94,8 +94,6 @@ Public Class RSyntax
     ''' <summary>   The R command in the form of a string. </summary>
     Public strCommandString As String = ""
 
-    ''' <summary>   The script associated with the base R code. </summary>
-    Public strScript As String
 
     ''' <summary>   The R functions/operators/commands that should be run before the base R code. </summary>
     Private lstBeforeCodes As New List(Of RCodeStructure)
@@ -231,6 +229,8 @@ Public Class RSyntax
             clsBaseFunction.GetAllAssignTo(lstCodes, lstValues)
         ElseIf bUseBaseOperator Then
             clsBaseOperator.GetAllAssignTo(lstCodes, lstValues)
+        ElseIf bUseCommandString Then
+            clsBaseCommandString.GetAllAssignTo(lstCodes, lstValues)
         End If
         lstBeforeCodes.Sort(AddressOf CompareCodePositions)
         For Each clsTempCode As RCodeStructure In lstBeforeCodes
@@ -295,6 +295,7 @@ Public Class RSyntax
     '''--------------------------------------------------------------------------------------------
     Public Function GetScript() As String
         Dim strTemp As String = ""
+        Dim strScript As String = ""
 
         If bUseBaseFunction Then
             strTemp = clsBaseFunction.ToScript(strScript)
@@ -431,6 +432,7 @@ Public Class RSyntax
         clsBaseFunction = clsFunction
         bUseBaseFunction = True
         bUseBaseOperator = False
+        bUseCommandString = False
     End Sub
 
     '''--------------------------------------------------------------------------------------------
@@ -442,6 +444,7 @@ Public Class RSyntax
         clsBaseOperator = clsOperator
         bUseBaseFunction = False
         bUseBaseOperator = True
+        bUseCommandString = False
     End Sub
 
     '''--------------------------------------------------------------------------------------------