class EmptyCallbacks implements RMainLoopCallbacks {
static void print(String s) { System.err.println(s); }

public void rWriteConsole (Rengine re, String text, int oType) {
//print("Console: " + text);
return;
}
public void rBusy (Rengine re, int which) { print("busy"); return; }
public String rReadConsole (Rengine re, String prompt, int addToHistory) { print("read console"); return ""; }
public void rShowMessage (Rengine re, String message) { print("Message: " + message); return; }
public String rChooseFile (Rengine re, int newFile) { print("choose file"); return ""; }
public void rFlushConsole (Rengine re) { print("flush console"); return; }
public void rSaveHistory (Rengine re, String filename) { print("save hist"); return; }
public void rLoadHistory (Rengine re, String filename) { print("load hist"); return; }
}

public class nlr {
static void print(String s) { System.err.println(s); }
static void eval(Rengine r, String s) { r.eval(s, false); }

public static void main(String[] args) {
if (!Rengine.versionCheck()) {
System.err.println("** Version mismatch - Java files don't match library version.");
System.exit(1);
}

print("creating Rengine");

Rengine re = new Rengine(args, false, new EmptyCallbacks());

print("Rengine created, waiting for R");

// the engine creates R is a new thread, so we should wait until it's ready
if (!re.waitForR()) {
System.out.println("Cannot load R");
return;
}

print("R is running");

try {
eval(re, "data(iris)");
eval(re,"pdf('/tmp/nlr.pdf')");
eval(re, "print(stripchart(iris[, 1:4], method = 'stack', " +
"pch = 16, cex = 0.4, offset = 0.6))");
eval(re, "dev.off()");
} catch (Exception e) {
print("ERROR: "+e);
e.printStackTrace();
}

print("stopping Rengine");

re.end(); // stop the Rengine