335
335
/* Use binary transfers */
336
336
in = R_fopen(R_ExpandFileName(url+nh), (mode[2] == 'b') ? "rb" : "r");
339
338
error(_("cannot open URL '%s', reason '%s'"),
346
342
out = R_fopen(R_ExpandFileName(file), mode);
349
344
error(_("cannot open destfile '%s', reason '%s'"),
355
347
while((n = fread(buf, 1, CPBUFSIZE, in)) > 0) {
356
348
size_t res = fwrite(buf, 1, n, out);