support complex values in matrixToDataFrame

mikeaddison93 · Oct 31, 2015 · ae8a4e3 · ae8a4e3
1 parent abfb411
commit ae8a4e3
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/matrixToDataFrame.cpp b/src/matrixToDataFrame.cpp
@@ -29,6 +29,9 @@ List matrixToDataFrame(RObject x) {
       case REALSXP:
         REAL(col)[i] = REAL(x)[offset + i];
         break;
+      case CPLXSXP:
+        COMPLEX(col)[i] = COMPLEX(x)[offset + i];
+        break;
       case STRSXP:
         SET_STRING_ELT(col, i, STRING_ELT(x, offset + i));
         break;