How to use

isNamed

method

in

org.rosuda.REngine.RList

  public String toString() {
    return "RList"+super.toString()+"{"+(isNamed()?"named,":"")+size()+"}";
  }
}

public String toString() {
  return super.toString()+(asList().isNamed()?"named":"");
}

public String toString() {
  return super.toString()+(asList().isNamed()?"named":"");
}

  public String toString() {
    return "RList"+super.toString()+"{"+(isNamed()?"named,":"")+size()+"}";
  }
}

public String toString() {
  return super.toString()+(asList().isNamed()?"named":"");
}

public String toString() {
  return super.toString()+(asList().isNamed()?"named":"");
}

if (payload.isNamed()) {
  String[] names = payload.keys();
  if (names.length == n) {

if (payload.isNamed()) {
  String[] names = payload.keys();
  if (names.length == n) {

} else if (r instanceof REXPList) {
  RList l = r.asList();
  type = l.isNamed()?XT_LIST_TAG:XT_LIST_NOTAG;
  if (r instanceof REXPLanguage)
    type = (type==XT_LIST_TAG)?XT_LANG_TAG:XT_LANG_NOTAG;

} else if (r instanceof REXPList) {
  RList l = r.asList();
  type = l.isNamed()?XT_LIST_TAG:XT_LIST_NOTAG;
  if (r instanceof REXPLanguage)
    type = (type==XT_LIST_TAG)?XT_LANG_TAG:XT_LANG_NOTAG;

/** creates a new generic vector from a list. If the list is named, the <code>"names"</code> attribute is created automatically from it.
 *  @param list list to create the vector from */
public REXPGenericVector(RList list) {
  super();
  payload=(list==null)?new RList():list;
  // automatically generate 'names' attribute
  if (payload.isNamed())
    attr = new REXPList(
      new RList(new REXP[] { new REXPString(payload.keys()) },
           new String[] { "names" }));
}

/** creates a new generic vector from a list. If the list is named, the <code>"names"</code> attribute is created automatically from it.
 *  @param list list to create the vector from */
public REXPGenericVector(RList list) {
  super();
  payload=(list==null)?new RList():list;
  // automatically generate 'names' attribute
  if (payload.isNamed())
    attr = new REXPList(
      new RList(new REXP[] { new REXPString(payload.keys()) },
           new String[] { "names" }));
}

int rxt = type;
if (type==XT_LIST || type==XT_LIST_TAG || type==XT_LIST_NOTAG)
  rxt=(cont.asList()!=null && cont.asList().isNamed())?XT_LIST_TAG:XT_LIST_NOTAG;

int rxt = type;
if (type==XT_LIST || type==XT_LIST_TAG || type==XT_LIST_NOTAG)
  rxt=(cont.asList()!=null && cont.asList().isNamed())?XT_LIST_TAG:XT_LIST_NOTAG;

if (type==XT_VECTOR_STR) rxt=XT_ARRAY_STR; // VECTOR_STR is broken right now
if (type==XT_LIST || type==XT_LIST_TAG || type==XT_LIST_NOTAG)
  rxt=(cont.asList()!=null && cont.asList().isNamed())?XT_LIST_TAG:XT_LIST_NOTAG;

if (type==XT_VECTOR_STR) rxt=XT_ARRAY_STR; // VECTOR_STR is broken right now
if (type==XT_LIST || type==XT_LIST_TAG || type==XT_LIST_NOTAG)
  rxt=(cont.asList()!=null && cont.asList().isNamed())?XT_LIST_TAG:XT_LIST_NOTAG;