关于java中调用Rserve包的eval函数中的奇葩bug

由于任务的需要,最近一直在使用Rserve包将java与R这两大利器结合起来使用。

在利用R文件进行项目开发时,往往要设计自己的函数库。


本人设计的其中一个R函数如下:

#方法6:主题数的计算
## 由于java的原因不能执行
topicnum.fun <- function(str){
  if(str == "现象"){
    print("计算开始")
    dtm <- kefu.phenomenon.dtm
    #首先选择最佳的topic number
    startTime=Sys.time()
    best.model <- lapply(seq(10,100, by=10), function(k){LDA(dtm, k)})
    best.model.logLik <- as.data.frame(as.matrix(lapply(best.model, logLik)))
    
    best.model.logLik.df <- data.frame(topics=seq(10,100, by=10), LL=as.numeric(as.matrix(best.model.logLik)))
    
    topicnum<-best.model.logLik.df[which.max(best.model.logLik.df$LL),]
    # 记录下当前程序运行的时间点
    print(Sys.time() - startTime)
    print(topicnum)
    topicnum
    
  }else if(str == "原因"){
    dtm <- kefu.reason.dtm
    #首先选择最佳的topic number
    startTime=Sys.time()
    best.model <- lapply(seq(10,100, by=10), function(k){LDA(dtm, k)})
    best.model.logLik <- as.data.frame(as.matrix(lapply(best.model, logLik)))
    
    best.model.logLik.df <- data.frame(topics=seq(10,100, by=10), LL=as.numeric(as.matrix(best.model.logLik)))
    
    topicnum<-best.model.logLik.df[which.max(best.model.logLik.df$LL),]
    # 记录下当前程序运行的时间点
    print(Sys.time() - startTime)
    print(topicnum)
    topicnum
    
  }
 
}

其中,在java工程中的一个类执行以下程序:

package com.buptshl.r;

import org.rosuda.REngine.Rserve.RConnection;
import org.rosuda.REngine.Rserve.RserveException;

public class TestR08 {

    public static void main(String[] args) {

        RConnection rc = null;
        try {
            rc = new RConnection();
System.out.println("开始运算");
//加载运算过程中需要的函数库
            rc.eval("source(\"E:/tomcat/apache-tomcat-7.0.63/webapps/textmining/text analysis/rsource/test.R\")");
            System.out.println("结束运算");

        } catch (RserveException e) {
            e.printStackTrace();
        }finally{
            rc.close();
        }
    }

}

程序执行时,报错:

经过逐句调试之后,将R程序中if语句的print("计算开始")注释或者删除掉之后。

#方法6:主题数的计算
## 由于java的原因不能执行
topicnum.fun <- function(str){
  if(str == "现象"){
#     print("计算开始")
    dtm <- kefu.phenomenon.dtm
    #首先选择最佳的topic number
    startTime=Sys.time()
    best.model <- lapply(seq(10,100, by=10), function(k){LDA(dtm, k)})
    best.model.logLik <- as.data.frame(as.matrix(lapply(best.model, logLik)))
    
    best.model.logLik.df <- data.frame(topics=seq(10,100, by=10), LL=as.numeric(as.matrix(best.model.logLik)))
    
    topicnum<-best.model.logLik.df[which.max(best.model.logLik.df$LL),]
    # 记录下当前程序运行的时间点
    print(Sys.time() - startTime)
    print(topicnum)
    topicnum
    
  }else if(str == "原因"){
    dtm <- kefu.reason.dtm
    #首先选择最佳的topic number
    startTime=Sys.time()
    best.model <- lapply(seq(10,100, by=10), function(k){LDA(dtm, k)})
    best.model.logLik <- as.data.frame(as.matrix(lapply(best.model, logLik)))
    
    best.model.logLik.df <- data.frame(topics=seq(10,100, by=10), LL=as.numeric(as.matrix(best.model.logLik)))
    
    topicnum<-best.model.logLik.df[which.max(best.model.logLik.df$LL),]
    # 记录下当前程序运行的时间点
    print(Sys.time() - startTime)
    print(topicnum)
    topicnum
    
  }
 
}
比较前后的程序差异,可以看出只有print语句的不同。奇怪的是,执行成功:

除此之外,在语句中尽量不要使用stop()或者cat语句,这些都会导致在利用java调用eval函数时报错。这只是个人实践的记录。

欢迎留言

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值