Question

我正在尝试在asp.net c＃web应用程序中使用R脚本。我正在尝试使用一个简单的r脚本，它将两个字符串连接到一个字符串。

以下是我的cs代码

using RDotNet;

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;

public partial class _Default : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
    }

    private static double EvaluateExpression(REngine engine, string expression)
    {
        var expressionVector = engine.CreateCharacterVector(new[] { expression });
        engine.SetSymbol("expr", expressionVector);

        //  WRONG -- Need to parse to expression before evaluation
        //var result = engine.Evaluate("eval(expr)");

        //  RIGHT way to do this!!!
        var result = engine.Evaluate("eval(parse(text=expr))");
        var ret = result.AsNumeric().First();

        return ret;
    }

    public static void SetupPath(string Rversion = "R-3.2.1")
    {
        var oldPath = System.Environment.GetEnvironmentVariable("PATH");
        var rPath = System.Environment.Is64BitProcess ?
                               string.Format(@"C:\Program Files\R\{0}\bin\x64", Rversion) :
                               string.Format(@"C:\Program Files\R\{0}\bin\i386", Rversion);

        if (!Directory.Exists(rPath))
            throw new DirectoryNotFoundException(
              string.Format(" R.dll not found in : {0}", rPath));
        var newPath = string.Format("{0}{1}{2}", rPath,
                                     System.IO.Path.PathSeparator, oldPath);
        System.Environment.SetEnvironmentVariable("PATH", newPath);
    }

    protected void Button1_Click(object sender, EventArgs e)
    {
        SetupPath();
        REngine.SetEnvironmentVariables();

        REngine engine = REngine.GetInstance();
        // REngine requires explicit initialization.
        // You can set some parameters.
        engine.Initialize();
        //engine.Evaluate("G<-5+3+2");
        engine.Evaluate("G<-paste('hello from r', 'Test')");
        Label1.Text = EvaluateExpression(engine, "G").ToString();
    }
}

我有一个点击按钮，当我点击它时，我希望输出显示在网页中。

当我运行代码并单击按钮时，我会收到文本

的NaN

在标签控制页面中。但是，当我运行

engine.Evaluate("G<-5+3+2");

而不是

engine.Evaluate("G<-paste('hello from r', 'Test')");

我在页面标签中输入正确值为10。我不知道这个错误，也不知道如何在我的网页中获得输出。我在一些网站上尝试了帮助，但所有代码都是为控制台应用程序编写的，而不是asp.net web应用程序。

任何人都可以通过在我的网页上显示r输出来帮助我解决问题吗？

Answer 1

根本不需要EvaluateExpression。请改用engine.GetSymbol("G")。

由于AsNumeric()内的EvaluateExpression转换，您会收到NaN输出。它只适用于数字输出，而不是字符。

这是数字和字符变量的最小示例：

    static void Main(string[] args)
    {
        REngine.SetEnvironmentVariables();
        REngine engine = REngine.GetInstance();
        engine.Initialize();
        engine.Evaluate("x <- 40 + 2");
        engine.Evaluate("s <- paste('hello', letters[5])");
        var x = engine.GetSymbol("x").AsNumeric().First();
        var s = engine.GetSymbol("s").AsCharacter().First();
        Console.WriteLine(x);
        Console.WriteLine(s);
    }

在asp.net Web应用程序中使用R

1 个答案: