Я пытаюсь построить некоторые графики, используя Java и R (JRI и Rengine). Когда я пишу что-то вроде этого в моем коде, он работает нормально:
re.eval("plot(c(1,5,3,8,5), type='l', col=2)");
Но если я напишу это:
re.eval("source(\"C:\\Documents and Settings\\abc\\My Documents\\Test Data\\BoxPlot.r\");");
окно вывода мигает на мгновение и исчезает. Этот указанный файл содержит только 1 команду, в качестве первой, т.е. re.eval("plot(c(1,5,3,8,5), type='l', col=2)");
Я очень плохо знаком с R, так что это может быть очень простой вопрос. Но я не могу это выяснить. Кто-нибудь может мне помочь?
Спасибо.
РЕДАКТИРОВАТЬ 1
Я использую Windows XP.
Вот полный код:
import org.rosuda.JRI.Rengine;
public class JavaGDExample1 {
public static void main(String[] args) {
Rengine re;
String[] dummyArgs = new String[1];
dummyArgs[0] = "--vanilla";
re = new Rengine(dummyArgs, false, null);
re.eval("library(JavaGD)");
// This is the critical line: Here, we tell R that the JavaGD() device that
// it is supposed to draw to is implemented in the class MyJavaGD. If it were
// in a package (say, my.package), this should be set to
// my/package/MyJavaGD1.
re.eval("Sys.putenv('JAVAGD_CLASS_NAME'='MyJavaGD1')");
re.eval("JavaGD()");
// re.eval("plot(c(1,5,3,8,5), type='l', col=2)");
re.eval("source(\"C:\\Documents and Settings\\abc\\My Documents\\Test Data\\BoxPlot.r\");");
// re.eval("source(\"C:\\Documents and Settings\\abc\\My Documents\\Test Data\\testPlot.r\")");
re.end();
}
}
import javax.swing.JFrame;
import org.rosuda.javaGD.GDCanvas;
import org.rosuda.javaGD.GDInterface;
/**
* This is a minimal reimplementation of the GDInterface. When the device is opened,
* it just creates a new JFrame, adds a new GDCanvas to it (R will plot to this GDCanvas)
* and tells the program to exit when it is closed.
*/
public class MyJavaGD1 extends GDInterface {
public JFrame f;
public void gdOpen(double w, double h) {
f = new JFrame("JavaGD");
c = new GDCanvas(w, h);
f.add((GDCanvas) c);
f.pack();
f.setVisible(true);
f.setTitle("Naked R plot");
f.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
}
}