Use InvariantCulture when formating R commands

Peter-B- · Peter-B- · commit ea6c55cf7be3 · 2019-06-19T14:22:25.000+02:00
diff --git a/Optimization/Program.cs b/Optimization/Program.cs
@@ -1,4 +1,5 @@
 using System;
+using System.Globalization;
 using RDotNet;
 using System.Linq;
 
@@ -50,7 +51,7 @@ static void TestOptimCsharp(REngine engine)
          {
             x = -1 + rand.NextDouble() * (3 - (-1));
             y = -1 + rand.NextDouble() * (3 - (-1));
-            r = engine.Evaluate(string.Format("rosen({0}, {1})", x, y)).AsNumeric().ToArray()[0];
+            r = engine.Evaluate(string.Format(CultureInfo.InvariantCulture, "rosen({0}, {1})", x, y)).AsNumeric().ToArray()[0];
             if (r < rb)
             {
                rb = r;
diff --git a/SourceRCode/Program.cs b/SourceRCode/Program.cs
@@ -40,7 +40,9 @@ static void Main(string[] args)
             /*
             // if testing for http://stackoverflow.com/questions/32236596/calling-user-defined-functions-inside-a-script-in-r-net
             double value1 = 1, value2 = 2;
-            var dataframe = engine.Evaluate(string.Format("dataframe <- userDefinedFunctionOne(parameter1 = {0}, parameter2 = {1})",
+            var dataframe = engine.Evaluate(string.Format(
+                                                        CultureInfo.InvariantCulture, 
+                                                        "dataframe <- userDefinedFunctionOne(parameter1 = {0}, parameter2 = {1})",
                                                         value1,
                                                         value2)).AsDataFrame();
              // with

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,5 @@`
`1`	`1`	`using System;`
	`2`	`+using System.Globalization;`
`2`	`3`	`using RDotNet;`
`3`	`4`	`using System.Linq;`
`4`	`5`
`@@ -50,7 +51,7 @@ static void TestOptimCsharp(REngine engine)`
`50`	`51`	`{`
`51`	`52`	`x = -1 + rand.NextDouble() * (3 - (-1));`
`52`	`53`	`y = -1 + rand.NextDouble() * (3 - (-1));`
`53`		`- r = engine.Evaluate(string.Format("rosen({0}, {1})", x, y)).AsNumeric().ToArray()[0];`
	`54`	`+ r = engine.Evaluate(string.Format(CultureInfo.InvariantCulture, "rosen({0}, {1})", x, y)).AsNumeric().ToArray()[0];`
`54`	`55`	`if (r < rb)`
`55`	`56`	`{`
`56`	`57`	`rb = r;`