Fix for boolean vector bug NA -> TRUE (#6)

microsoft · Jul 21, 2016 · 8b75ec4 · 8b75ec4
1 parent a66d693
commit 8b75ec4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Rserve/src/Rserv.c b/Rserve/src/Rserv.c
@@ -1123,7 +1123,8 @@ static SEXP decode_to_SEXP(unsigned int **buf, int *UPC)
 			(*UPC)++;
 			i = 0;
 			while (i < vl) {
-				LOGICAL(val)[i] = cb[i];
+				//      LOGICAL(val)[i] = cb[i];
+                LOGICAL(val)[i] = (cb[i] == 1) ? TRUE : ((cb[i] == 0) ? FALSE : NA_LOGICAL);
 				i++;
 			}
 			while ((i & 3) != 0) i++;