/*
* RObjectEntry.java
*
* Copyright (C) 2009-12 by RStudio, Inc.
*
* Unless you have received this program directly from RStudio pursuant
* to the terms of a commercial license agreement with RStudio, then
* this program is licensed to you under the terms of version 3 of the
* GNU Affero General Public License. This program is distributed WITHOUT
* ANY EXPRESS OR IMPLIED WARRANTY, INCLUDING THOSE OF NON-INFRINGEMENT,
* MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. Please refer to the
* AGPL (http://www.gnu.org/licenses/agpl-3.0.txt) for more details.
*
*/
package org.rstudio.studio.client.workbench.views.environment.view;
import com.google.gwt.core.client.JsArrayString;
import com.google.gwt.view.client.ProvidesKey;
import java.util.HashSet;
import java.util.Set;
import org.rstudio.core.client.ListUtil;
import org.rstudio.studio.client.workbench.views.environment.model.RObject;
// represents an R object's entry in the environment pane view
public class RObjectEntry
{
public static final ProvidesKey<RObjectEntry> KEY_PROVIDER =
new ProvidesKey<RObjectEntry>() {
public Object getKey(RObjectEntry item) {
return item.rObject.getName();
}
};
// the classification of data in the pane
public class Categories
{
public static final int Data = 0;
public static final int Value = 1;
public static final int Function = 2;
}
// make a new entry in the pane from an R object
RObjectEntry(RObject obj, boolean isVisible)
{
rObject = obj;
expanded = false;
isCategoryLeader = false;
visible = isVisible;
isFirstObject = false;
isExpanding = false;
contentsAreDeferred = obj.getContentsDeferred();
}
// show expander for objects that have contents
public boolean canExpand()
{
return rObject.getLength() > 0 &&
(rObject.getContentsDeferred() ||
(rObject.getContents().length() > 0 &&
!rObject.getContents().get(0).equals(NO_VALUE))) &&
!hasTraceInfo();
}
public boolean hasTraceInfo()
{
return rObject.getType().equals("functionWithTrace");
}
public int getCategory()
{
String type = rObject.getType();
if (isTabular() || isHierarchical())
{
return Categories.Data;
}
else if (type.equals("function") ||
hasTraceInfo())
{
return Categories.Function;
}
return Categories.Value;
}
public boolean isPromise()
{
return rObject.getType() == "promise";
}
public boolean isTabular()
{
return rObject.isData() || rObjectHasDataClass();
}
public boolean isHierarchical()
{
if (isTabular())
return false;
JsArrayString classes = rObject.getClazz();
for (int i = 0, n = classes.length(); i < n; i++)
if (HIERARCHICAL_CLASSES.contains(classes.get(i)))
return true;
return false;
}
public String getDisplayValue()
{
String val = rObject.getValue().trim();
return val == RObjectEntry.NO_VALUE ?
rObject.getDescription().trim() :
val;
}
private boolean rObjectHasDataClass()
{
JsArrayString classes = rObject.getClazz();
for (int i = 0, n = classes.length(); i < n; i++)
if (DATA_CLASSES.contains(classes.get(i)))
return true;
return false;
}
public static final String NO_VALUE = "NO_VALUE";
private static final Set<String> DATA_CLASSES = new HashSet<String>();
private static final Set<String> HIERARCHICAL_CLASSES = new HashSet<String>();
static {
DATA_CLASSES.addAll(ListUtil.create(
"matrix",
"data.frame",
"cast_df",
"xts",
"DataFrame"
));
HIERARCHICAL_CLASSES.addAll(ListUtil.create(
"list",
"environment"
));
}
RObject rObject;
boolean expanded;
boolean isCategoryLeader;
boolean visible;
boolean isFirstObject;
boolean isExpanding;
boolean contentsAreDeferred;
}