The R Project SVN R

Rev

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

Rev 72834 Rev 73190
Line 2645... Line 2645...
2645 
	default:
 2645 
	default:
2646 
	    error(_("mode '%s' is not supported in call_R"), modes[i]);
 2646 
	    error(_("mode '%s' is not supported in call_R"), modes[i]);
2647 
	}
 2647 
	}
2648 
	if(names && names[i])
 2648 
	if(names && names[i])
2649 
	    SET_TAG(pcall, install(names[i]));
 2649 
	    SET_TAG(pcall, install(names[i]));
2650 
	SET_NAMED(CAR(pcall), 2);
 2650 
	ENSURE_NAMEDMAX(CAR(pcall));
2651 
    }
 2651 
    }
2652 
    PROTECT(s = eval(call, R_GlobalEnv));
 2652 
    PROTECT(s = eval(call, R_GlobalEnv));
2653 
    switch(TYPEOF(s)) {
 2653 
    switch(TYPEOF(s)) {
2654 
    case LGLSXP:
 2654 
    case LGLSXP:
2655 
    case INTSXP:
 2655 
    case INTSXP: