package org.simantics.r.scl.variable;

import org.rosuda.REngine.REXP;

public class RAttributeNode implements RVariableNode {
	private String name;
	private RVariableNode parent;

	public RAttributeNode(RVariableNode parent, String name) {
		this.name = name;
		this.parent = parent;
	}

	@Override
	public REXP getValue() {
		REXP parentValue = parent.getValue();
		if (parentValue == null)
			return null;
		
		return parentValue.getAttribute(name);
	}

	@Override
	public String getName() {
		return RNodeManager.ATTRIBUTE_NAME_PREFIX + name;
	}

	@Override
	public RVariableNode getParent() {
		return parent;
	}
}