FilesExpand file tree

 master

/

rtest2.java

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

84 lines (69 loc) · 2.61 KB

 master

/

rtest2.java

Copy path

Top

File metadata and controls

• Code
• Blame

84 lines (69 loc) · 2.61 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

import java.io.*;

import java.awt.*;

import javax.swing.*;

import org.rosuda.jri.Rengine;

import org.rosuda.jri.REXP;

import org.rosuda.jri.RMainLoopCallbacks;

import org.rosuda.jri.RConsoleOutputStream;

class TextConsole2 implements RMainLoopCallbacks

{

JFrame f;

public JTextArea textarea = new JTextArea();

public TextConsole2() {

f = new JFrame();

f.getContentPane().add(new JScrollPane(textarea));

f.setSize(new Dimension(800,600));

f.show();

}

public void rWriteConsole(Rengine re, String text, int oType) {

textarea.append(text);

}

public void rBusy(Rengine re, int which) {

System.out.println("rBusy("+which+")");

}

public String rReadConsole(Rengine re, String prompt, int addToHistory) {

System.out.print(prompt);

try {

BufferedReader br=new BufferedReader(new InputStreamReader(System.in));

String s=br.readLine();

return (s==null||s.length()==0)?s:s+"\n";

} catch (Exception e) {

System.out.println("jriReadConsole exception: "+e.getMessage());

}

return null;

}

public void rShowMessage(Rengine re, String message) {

System.out.println("rShowMessage \""+message+"\"");

}

public String rChooseFile(Rengine re, int newFile) {

FileDialog fd = new FileDialog(f, (newFile==0)?"Select a file":"Select a new file", (newFile==0)?FileDialog.LOAD:FileDialog.SAVE);

fd.show();

String res=null;

if (fd.getDirectory()!=null) res=fd.getDirectory();

if (fd.getFile()!=null) res=(res==null)?fd.getFile():(res+fd.getFile());

return res;

}

public void rFlushConsole (Rengine re) {

}

public void rLoadHistory (Rengine re, String filename) {

}

public void rSaveHistory (Rengine re, String filename) {

}

}

public class rtest2 {

public static void main(String[] args) {

System.out.println("Press <Enter> to continue (time to attach the debugger if necessary)");

try { System.in.read(); } catch(Exception e) {};

System.out.println("Creating Rengine (with arguments)");

Rengine re=new Rengine(args, true, new TextConsole2());

System.out.println("Rengine created, waiting for R");

if (!re.waitForR()) {

System.out.println("Cannot load R");

return;

}

System.out.println("re-routing stdout/err into R console");

System.setOut(new PrintStream(new RConsoleOutputStream(re, 0)));

System.setErr(new PrintStream(new RConsoleOutputStream(re, 1)));

System.out.println("Letting go; use main loop from now on");

}

}