The R Project SVN R

Rev

Rev 84952 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 84952 Rev 86821
Line 370... Line 370...
370 
    SEXP var;
 370 
    SEXP var;
371 
 
 371 
 
372 
    if (!ConsoleAcceptCmd) return;
 372 
    if (!ConsoleAcceptCmd) return;
373 
    s = askstring(G_("Name of data frame or matrix"), "");
 373 
    s = askstring(G_("Name of data frame or matrix"), "");
374 
    if(s) {
 374 
    if(s) {
375 
	var = findVar(install(s), R_GlobalEnv);
 375 
	var = R_findVar(install(s), R_GlobalEnv);
376 
	if (var != R_UnboundValue) {
 376 
	if (var != R_UnboundValue) {
377 
	    snprintf(cmd, 1024,"fix(%s)", s);
 377 
	    snprintf(cmd, 1024,"fix(%s)", s);
378 
	    consolecmd(RConsole, cmd);
 378 
	    consolecmd(RConsole, cmd);
379 
	} else {
 379 
	} else {
380 
	    snprintf(cmd, 1024, G_("'%s' cannot be found"), s);
 380 
	    snprintf(cmd, 1024, G_("'%s' cannot be found"), s);