RInside：parseEvalQ\'Parse Error\'导致以后每次对parseEvalQ的调用都给出\'Parse Error\'，即使已处理异常也是如此

如何解决RInside：parseEvalQ\'Parse Error\'导致以后每次对parseEvalQ的调用都给出\'Parse Error\'，即使已处理异常也是如此

| 我的代码尝试通过C ++模拟R shell，允许用户通过tcp连接发送R命令，然后在运行时通过RInside :: parseEvalQ函数将其传递到R实例。我必须能够处理格式错误的命令。每当将错误的命令作为参数传递给parseEvalQ时，我都会捕获引发的运行时错误（查看RInside.cpp，我的特定错误在parseEval（const string＆，SEXP）函数中用\'PARSE_ERROR \'\'status \'标记） ，what（）给出\“ St9exception \”异常。 我有两个问题，第一个比第二个更紧迫： 1a。在初始Parse Error之后，即使参数有效，对parseEvalQ的任何后续调用也会导致另一个Parse Error。解析错误是否以某种方式破坏了嵌入式R实例？ 1b。 RInside文档建议使用Rcpp :: Evaluator :: run来处理C ++中的R异常（我怀疑在调用parseEval（const string＆，SEXP的过程中，R实例中的异常会抛出该异常），然后返回错误状态\'解析错误\'）。我已经尝试过尝试使用它，但是在网络上找不到如何实际使用Rcpp :: Evaluator :: run的示例。 2。在我的程序中，我将stdout和stderr（在C ++级别）重新路由到我的tcp连接的文件描述符，来自RInside实例的任何错误消息都发送到控制台，但是常规输出却没有。我将RInside发送到命令\'sink（stderr（），type = \“ output \”）\'，以将stdout重新路由到stderr（因为stderr似乎在控制台中显示），但是常规输出仍然未显示。 \'print（command）\'可以，但是我希望有一种更干净的方法，像在普通R shell中一样，将stdout直接传递到控制台。 任何帮助和/或想法将不胜感激。我的代码的简化版本如下所示： ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

using namespace std;

string request_cpp;

ostringstream oss;

int read(FILE* tcp_fd)  
{
  /* function to read input from FILE* into the \'request_cpp\' string */
}  

int write(FILE* tcp_fd,const string& response)  
{
  /* function to write a string to FILE* */
}

int main(int argc,char* argv[])  
{
  // create RInside object
  RInside R(argc,argv);

  //socket  
  int sd = socket(PF_INET,SOCK_STREAM,0);  
  addr.sin_family = AF_INET;  
  addr.sin_port = htons(40650);

  // set and accept connection on socket  
  inet_pton(AF_INET,\"127.0.0.1\",&addr.sin_addr);  
  bind(sd,(struct sockaddr*)&addr,sizeof(addr));  
  listen(sd,1);  
  int sd_i = accept(sd,0);  

  //re-route stdout and stderr to socket  
  close(1);  
  dup(sd_i);  
  close(2);  
  dup(sd_i);  

  // open read/write file descriptor to socket

  FILE* fp = fdopen(sd_i,\"r+\");  

  // emulate R prompt  

  write(fp,\"> \");  

  // (attempt to) redirect R\'s stdout to stderr
  R.parseEvalQ(\"sink(stderr(),type=\\\"output\\\");\");

  // read from socket and pass commands to RInside  
  while( read(fp) )  
  {
    try  
    {
      // skip empty input  
      if(request_cpp == \"\")  
      {  
        write(fp,\"> \");  
        continue;  
      }
      else if(request_cpp == \"q()\")  
      {  
        break;
      }  
      else  
      {  
        // clear string stream  
        oss.str(\"\");  

        // wrap command in try  
        oss << \"try(\" << request_cpp << \");\" << endl;  

        // send command  
        R.parseEvalQ(oss.str());  
      }  
    }  
    catch(exception e)  
    {  
      // print exception to console  
      write(fp,e.what());  
    }    
 write(fp,\"> \");
 }

fclose(fp);  
close(sd_i);  
exit(0);  
}

    

解决方法

由于您未使用\'r \'标记，因此本周我很想念您。 似乎您正在重新实现Simon \ s受信任的服务器。为什么不直接使用它呢？ 否则，对于Rcpp问题，请考虑在我们的rcpp-devel列表中询问。