The R Project SVN R

Rev

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

Rev 50833 Rev 51330
Line 196... Line 196...
196 
    con = getConnection(ifile);
 196 
    con = getConnection(ifile);
197 
    wasopen = con->isopen;
 197 
    wasopen = con->isopen;
198 
    num = asInteger(CAR(args));				args = CDR(args);
 198 
    num = asInteger(CAR(args));				args = CDR(args);
199 
    if (num == 0)
 199 
    if (num == 0)
200 
	return(allocVector(EXPRSXP, 0));
 200 
	return(allocVector(EXPRSXP, 0));
- 
 
 201 
 
201 
    PROTECT(text = coerceVector(CAR(args), STRSXP));	args = CDR(args);
 202 
    PROTECT(text = coerceVector(CAR(args), STRSXP));
- 
 
 203 
    if(length(CAR(args)) && !length(text))
- 
 
 204 
	errorcall(call, _("coercion of 'text' to character was unsuccessful"));
- 
 
 205 
    args = CDR(args);
202 
    prompt = CAR(args);					args = CDR(args);
 206 
    prompt = CAR(args);					args = CDR(args);
203 
    source = CAR(args);					args = CDR(args);
 207 
    source = CAR(args);					args = CDR(args);
204 
    if(!isString(CAR(args)) || LENGTH(CAR(args)) != 1)
 208 
    if(!isString(CAR(args)) || LENGTH(CAR(args)) != 1)
205 
	error(_("invalid '%s' value"), "encoding");
 209 
	error(_("invalid '%s' value"), "encoding");
206 
    encoding = CHAR(STRING_ELT(CAR(args), 0)); /* ASCII */
 210 
    encoding = CHAR(STRING_ELT(CAR(args), 0)); /* ASCII */