Skip to content
Snippets Groups Projects
Commit 7d4ec238 authored by Antoine Lucas's avatar Antoine Lucas
Browse files

fix bug apply (bigq)

parent 40abf897
No related branches found
No related tags found
No related merge requests found
......@@ -92,14 +92,14 @@ SEXP gmpMatToListQ(SEXP X, SEXP line)
SEXP ans;
// dangerous... no check => use with care in R
bool lines = INTEGER(line)[0];
int lines = INTEGER(line)[0];
bigvec_q matrix = bigrationalR::create_bignum(X);
unsigned int ncol = matrix.size() / matrix.nrow;
unsigned int nrow = matrix.nrow;
if(lines)
if(lines == 1)
{
// RETURN a list of all lines
PROTECT (ans = NEW_LIST(matrix.nrow) );
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment