FilesExpand file tree

 master

/

RVector.java

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

48 lines (42 loc) · 1.34 KB

 master

/

RVector.java

Copy path

Top

File metadata and controls

• Code
• Blame

48 lines (42 loc) · 1.34 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

package org.rosuda.JRI;

import java.util.Vector;

import java.util.Enumeration;

/** class encapsulating named generic vectors in R - do NOT use add/remove directly as names are not synchronized with the contents. The reason for this implementation is for historical compatibility and it may change in the future.

<p>

It is now used in <code>REXP</code> where <code>Vector</code> type was used previously for contents storage.

@since JRI 0.3

*/

public class RVector extends java.util.Vector {

Vector names = null;

public RVector() { super(); }

/** replace the names vector - do NOT use directly!

@param nam list of names */

public void setNames(String[] nam) {

names=new Vector(nam.length);

int i=0;

while (i<nam.length)

names.addElement(nam[i++]);

}

/** return the vector containg all names

@return vector containing all names */

public Vector getNames() {

return names;

}

/** return contents by name or <code>null</code> if not found

@param name key (name)

@return contents or <code>null</code> if not found

*/

public REXP at(String name) {

if (names==null) return null;

int i=0;

for (Enumeration e = names.elements() ; e.hasMoreElements() ;) {

String n = (String)e.nextElement();

if (n.equals(name)) return (REXP) elementAt(i);

i++;

}

return null;

}

public REXP at(int i) {

return (REXP)elementAt(i);

}

}