The R Project SVN R

Rev

Rev 7701 | Rev 11656 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7701 Rev 10172
Line 63... Line 63...
63 
	    errorcall(call, "parse error");
 63 
	    errorcall(call, "parse error");
64 
    }
 64 
    }
65 
    else if (isValidStringF(file)) {/* file != "" */
 65 
    else if (isValidStringF(file)) {/* file != "" */
66 
	if (num == NA_INTEGER)
 66 
	if (num == NA_INTEGER)
67 
	    num = -1;
 67 
	    num = -1;
68 
	fp = R_fopen(R_ExpandFileName(CHAR(STRING(file)[0])), "r");
 68 
	fp = R_fopen(R_ExpandFileName(CHAR(STRING_ELT(file,0))), "r");
69 
	if (!fp)
 69 
	if (!fp)
70 
	    errorcall(call, "unable to open file for parsing");
 70 
	    errorcall(call, "unable to open file for parsing");
71 
	s = R_ParseFile(fp, num, &status);
 71 
	s = R_ParseFile(fp, num, &status);
72 
	fclose(fp);
 72 
	fclose(fp);
73 
	if (status != PARSE_OK)
 73 
	if (status != PARSE_OK)