Question

我在我的c＃项目中使用R.Net和R.Net.Community包来启用R脚本。我有一个c＃类如下：

foreach(var item in list)
{
  callR(item);
}

和另一个类中运行R脚本的方法：

CallR(int item)
{
   //init the R engine                             
                REngine.SetEnvironmentVariables();
                engine = REngine.GetInstance();
                engine.Initialize();

  //Perform R
                engine.SetSymbol("data", item);
                engine.Evaluate("data<-data*data");

//engine.dispose
//Cannot use engine.dispose as re initialization of engine then, is not possible 
}

修改我有另一个第三类调用相同的R方法。如果我在我已经进行循环的类中实例化它，那么如何在这个类中使用该初始化？

问题：这段代码在本地工作得非常好，但是在将其部署到服务器上时，它会中断并提供异常：“无法加载库统计信息”。

在深入搜索时，我发现this表示多次初始化Rengine会导致此问题。

因此我的问题是如何在应用程序启动时自己初始化Rengine并在上面的代码中使用它的实例？

Answer 1

您可以将CallR类修改为具有REngine类的单个实例，并通过仅初始化它的方法获取它一次，例如

＆＃13;

public static REngine engine = null;
        public static REngine GetInitiazedREngine()
        {
            if (engine==null)
            {
                REngine.SetEnvironmentVariables();
                engine = REngine.GetInstance();
                engine.Initialize();
            }
            return engine;
        }

CallR(int item)
{
   //Get the initialized R Engine                             
                REngine initializedEngine=GetInitiazedREngine();

  //Perform R
                initializedEngine.SetSymbol("data", item);
                initializedEngine.Evaluate("data<-data*data");

//engine.dispose
//Cannot use engine.dispose as re initialization of engine then, is not possible 
}

＆＃13;

Answer 2

我认为更好的做法是使用Singletone模式，如下所示：

public class RNetEngine : IDisposable
{
  private bool _disposed;
  private REngine _rEngine;
  private static readonly object Lock = new object();

  private REngine Engine
  {
    get
    {
      if (_rEngine == null)
      {
        lock (Lock)
        {
        if (_rEngine == null)
          {              
            _rEngine = REngine.GetInstance();
          }
        }
      }
      return _rEngine;
    }
  }

  public void Evaluate(string expression)
  {
    Engine.Evaluate(expression);
  }

  public void Dispose()
  {
    Dispose(true);
    GC.SuppressFinalize(this);
  }

  protected virtual void Dispose(bool disposing)
  {
    if (_disposed)
    {
      return;
    }
    if (disposing)
    {
      if (_rEngine != null && !_rEngine.Disposed)
      {
        _rEngine.Dispose();
      }
    }
    _disposed = true;
  }
}

这将使您保持线程安全并在需要时进行处置。我已经将它与Castle.Windsor Singleton生活方式结合使用，所以它不是静止的。

如何在C＃.net中全局初始化REngine？

2 个答案: