FastR Grid: more robust/tolerant color format.

com.oracle.truffle.r.library/src/com/oracle/truffle/r/library/fastrGrid/GPar.java

@@ -264,7 +264,16 @@ public final class GPar {
         }
 
         private GridColor getGridColor(int listIndex) {
-            GridColor color = GridColorUtils.gridColorFromString(GridUtils.asString(data[listIndex], index));
+            Object value = data[listIndex];
+            String strValue = null;
+            if (value instanceof String) {
+                strValue = (String) value;
+            } else if (value instanceof RAbstractStringVector && ((RAbstractStringVector) value).getLength() > 0) {
+                strValue = ((RAbstractStringVector) value).getDataAt(listIndex % ((RAbstractStringVector) value).getLength());
+            } else {
+                return GridColor.TRANSPARENT;
+            }
+            GridColor color = GridColorUtils.gridColorFromString(strValue);
             double alpha = asDouble(data[GP_ALPHA], index);
             if (alpha != 1.) {
                 int newAlpha = Math.min(255, (int) (alpha * ((color.getAlpha() / 255.0) * 255)));

com.oracle.truffle.r.library/src/com/oracle/truffle/r/library/fastrGrid/GridColorUtils.java

@@ -34,6 +34,11 @@ public final class GridColorUtils {
             return parseHex(value);
         }
 
+        if (value.equals("NA")) {
+            // special case value, we want to check only for "NA", not "na".
+            return GridColor.TRANSPARENT;
+        }
+
         Object result = findByName(value);
         if (result == null) {
             throw RError.error(RError.NO_CALLER, Message.GENERIC, "Invalid color '" + value + "'.");
@@ -84,7 +89,6 @@ public final class GridColorUtils {
 
         static {
             NAMES.put("transparent", GridColor.TRANSPARENT);
-            NAMES.put("NA", GridColor.TRANSPARENT);
             NAMES.put("white", "#FFFFFF");
             NAMES.put("aliceblue", "#F0F8FF");
             NAMES.put("antiquewhite", "#FAEBD7");