SCM Repository
[matrix] Diff of /pkg/src/Csparse.c
Diff of /pkg/src/Csparse.c
Parent Directory
|
Revision Log
|
Patch
385 |
1, 0, Rkind, "", |
1, 0, Rkind, "", |
386 |
/* FIXME: drops dimnames */ R_NilValue); |
/* FIXME: drops dimnames */ R_NilValue); |
387 |
} |
} |
388 |
|
|
389 |
|
SEXP Csparse_MatrixMarket(SEXP x, SEXP fname) |
390 |
|
{ |
391 |
|
FILE *f = fopen(CHAR(asChar(fname)), "w"); |
392 |
|
|
393 |
|
if (!f) |
394 |
|
error(_("failure to open file \"%s\" for writing"), |
395 |
|
CHAR(asChar(fname))); |
396 |
|
if (!cholmod_write_sparse(f, AS_CHM_SP(x), (CHM_SP)NULL, |
397 |
|
(char*) NULL, &c)) |
398 |
|
error(_("cholmod_write_sparse returned error code")); |
399 |
|
fclose(f); |
400 |
|
return R_NilValue; |
401 |
|
} |
|
Legend:
Removed from v.1968 |
|
changed lines |
|
Added in v.2049 |
|
|