The R Project SVN – R – Diff – /branches/djm-source/src/main/array.c

 		for (i = 0; i < nr; i++)
 		    for (j = 0; j < nc; j++)
 			COMPLEX(snr)[i + j * nr] = na_cmplx;
+	    }
 	    break;
+	case RAWSXP:
+	    for (i = 0; i < nr; i++)
+		for (j = 0; j < nc; j++)
+		    RAW(snr)[i + j * nr] = 0;
+	    break;
+	}
+    }
     UNPROTECT(1);
     return snr;
+}
     case VECSXP:
 	for (i = 0; i < len; i++)
 	    SET_VECTOR_ELT(r, i,
 			   VECTOR_ELT(a, (i / ncol) + (i % ncol) * nrow));
 	break;
+    case RAWSXP:
+	for (i = 0; i < len; i++)
+	    RAW(r)[i] = RAW(a)[(i / ncol) + (i % ncol) * nrow];
+	break;
     default:
 	goto not_matrix;
+    }
     PROTECT(dims = allocVector(INTSXP, 2));
     INTEGER(dims)[0] = ncol;
 	    SET_VECTOR_ELT(r, i, VECTOR_ELT(a, j));
 	    CLICKJ;
+	}
 	break;
+    case RAWSXP:
+	for (j=0, i=0; i<len; i++) {
+	    RAW(r)[i] = RAW(a)[j];
+	    CLICKJ;
+	}
+	break;
     default:
 	errorcall(call, "unsupported type of array");
+    }
     /* handle the resize */

The R Project SVN R