Use InvariantCulture when formating R commands

rdotnet · Jun 19, 2019 · ea6c55c · ea6c55c
1 parent 2b54034
commit ea6c55c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
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