Test method TestProject1.UnitTest1.Open_Close threw exception: System.Runtime.InteropServices.COMException: Exception from HRESULT: 0×80040013.

It seams that C# can’t initialize R via the COM Interface. Do the C# binaries have to reside in the R path?

I am new to C# and wanted to utilise my R code. This will really help!!!

I needed to make a few changes but overall I would say that this is a nice demonstration of C# talking to R. Nice Histograms!

Here is my altered code (using a Main()) entry point.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using NUnit.Framework;

//COM references
//using Interop.STATCONNECTORCLNTLib;
using StatConnectorCommonLib;
//using STATCONNECTORSRVLib;
using System.IO;
using Interop.STATCONNECTORSRVLib;

namespace RConnector.Tests.Integration
{

//===============================================
class MainEntryPoint
{
static void Main()
{
TestConnectivityWithR.Open_Close();
TestConnectivityWithR.Send_Receive_Data_();
TestConnectivityWithR.Plot_CSharpInput_Simple();
TestConnectivityWithR.Plot_CSharpInput_Simple_WithColors_Rainbow();
}

}

}
//=========================================================
// [TestFixture]
public class TestConnectivityWithR
{

// [Test]

public static void Open_Close()
{
Interop.STATCONNECTORSRVLib.StatConnectorClass RConnector = new Interop.STATCONNECTORSRVLib.StatConnectorClass();
RConnector.Init(“R”);
RConnector.Close();
Console.ReadLine();
}

// [Test]
// public static void Main()
public static void Send_Receive_Data_()
{
Interop.STATCONNECTORSRVLib.StatConnectorClass RConnector = new Interop.STATCONNECTORSRVLib.StatConnectorClass();
RConnector.Init(“R”);
// Data we are going to pass
int n = 20;
// Cast C# type to R type
RConnector.SetSymbol(“n1″,n);
// The cast value n to n1 is now being used in R
RConnector.Evaluate(“x1 <- rnorm(n1)");
// We get back the value of x1, but it needs to be cast
// to an array of doubles
object o = RConnector.GetSymbol("x1");
double[] random = (double[])o;
foreach (double d in random)
{
Console.WriteLine(d);
}
Console.ReadLine();
}
// [Test]
public static void Plot_CSharpInput_Simple()
{
Interop.STATCONNECTORSRVLib.StatConnectorClass RConnector = new Interop.STATCONNECTORSRVLib.StatConnectorClass();
RConnector.Init("R");
double[] input = new double[] { 1.0, 2.0, 3.0, 2.0, 1.0};
RConnector.SetSymbol("input", input);
RConnector.EvaluateNoReturn("hist(input)");
RConnector.EvaluateNoReturn(
"savePlot(filename = \"" +
@"F:\\WEBSITE\\Plot_CSharpInput.eps" + "\", " +
"type = \"eps\", device = dev.cur(), restoreConsole = TRUE )"
);
Console.ReadLine();
RConnector.Close();
}

// [Test]
// public static void Main()
public static void Plot_CSharpInput_Simple_WithColors_Rainbow()
{
Interop.STATCONNECTORSRVLib.StatConnectorClass RConnector = new Interop.STATCONNECTORSRVLib.StatConnectorClass();
RConnector.Init("R");
double[] input = new double[] {1.0, 2.0, 3.0, 2.0, 1.0};
RConnector.SetSymbol("input", input);
RConnector.EvaluateNoReturn("barplot(input, main=\"Foobar\", xlab=\"Value\", ylab=\"Frequency\", col=rainbow(7))");
RConnector.EvaluateNoReturn("legend(\"topleft\", c(\"Hello\", \"World\"), cex=0.6, bty=\"n\", fill=rainbow(5))");
RConnector.EvaluateNoReturn(
"savePlot(filename = \"" +
@"F:\\WEBSITE\\Plot_CSharpInput.eps" + "\", " +
"type = \"eps\", device = dev.cur(), restoreConsole = TRUE )");

Console.ReadLine();
RConnector.Close();
}

}

nhunspell.sourceforge.net

and tell me what i can do better or what you like. I know i don’t deal with utf8 right at the moment. You can make some suggestions if you like.

Please, share your thoughts!