static void Main(string[] args) { // Init R session IRHostSession session = RHostSession.Create("Test"); Task sessionStartTask = session.StartHostAsync(new RHostSessionCallback()); sessionStartTask.Wait(); // Simple output from console Console.WriteLine("Arbitrary R code:"); var result = session.ExecuteAndOutputAsync("Sys.info()"); result.Wait(); Console.WriteLine(result.Result.Output); // Create R DataFrame List <string> colNames = new List <string>(new string[] { "c1", "c2" }); List <string> rowNames = new List <string>(new string[] { "1", "2", "3", "10" }); var xx = new object[] { new object[] { 1, 3, 43, 54 }, new object[] { "a", "c", "a", "d" } }; var list = new List <IReadOnlyCollection <object> >(); foreach (object o in xx) { list.Add(o as object[]); } DataFrame df = new DataFrame(rowNames, colNames, list.AsReadOnly()); var dtc = session.CreateDataFrameAsync("data", df); dtc.Wait(); // Print data frame in R session result = session.ExecuteAndOutputAsync("print(data)"); result.Wait(); Console.WriteLine("\nR data frame:"); Console.WriteLine(result.Result.Output); var resultList = session.GetListAsync("list(mean(data$c1), 111)"); Console.WriteLine("\nList elements returned from R to C#:"); Console.WriteLine(Convert.ToDouble(resultList.Result[0]) * 100); Console.WriteLine(resultList.Result[1]); session.StopHostAsync(); Console.ReadLine(); }
public async Task OutputAsync(string expression, bool isError, string expected) { var output = await _session.ExecuteAndOutputAsync(expression); if (isError) { output.Errors.Should().Be(expected); } else { output.Output.Should().Be(expected); } }
private async void executeButton_Click(object sender, EventArgs e) { try { await _sessionStartTask; var result = await _session.ExecuteAndOutputAsync(codeBox.Text); DisplayResult(new TextBox() { Text = result.Output }); } catch (Exception ex) { DisplayResult(ex.Message); } }
public async Task CallMyFunction(double x, double y) { await task; if (!scriptExecuted) { await session.ExecuteAsync(File.ReadAllText(scriptPath)); // Можно попробовать так //await session.ExecuteAsync("source('full\\path\\to\\Script.R')"); scriptExecuted = true; } var res = await session.ExecuteAndOutputAsync($"my.f({x}, {y})"); Console.WriteLine(res.Output); }
public async Task <RSessionOutput> ExecuteAndOutputAsync(string command) { return(await rHostSession.ExecuteAndOutputAsync(command)); }