The R Project SVN R

Rev

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

Rev 50746 Rev 51096
Line 1357... Line 1357...
1357 
 
 1357 
 
1358 
    GCheckState(dd);
 1358 
    GCheckState(dd);
1359 
 
 1359 
 
1360 
    if (length(args) < 4)
 1360 
    if (length(args) < 4)
1361 
	error(_("too few arguments"));
 1361 
	error(_("too few arguments"));
- 
 
 1362 
    PrintDefaults(R_GlobalEnv); /* prepare for labelformat */
1362 
 
 1363 
 
1363 
    oargs = args;
 1364 
    oargs = args;
1364 
 
 1365 
 
1365 
    x = CAR(args);
 1366 
    x = CAR(args);
1366 
    internalTypeCheck(call, x, REALSXP);
 1367 
    internalTypeCheck(call, x, REALSXP);
Line 1652... Line 1653...
1652 
    pGEDevDesc dd = GEcurrentDevice();
 1653 
    pGEDevDesc dd = GEcurrentDevice();
1653 
 
 1654 
 
1654 
    GCheckState(dd);
 1655 
    GCheckState(dd);
1655 
 
 1656 
 
1656 
    checkArity(op,args);
 1657 
    checkArity(op,args);
- 
 
 1658 
    PrintDefaults(R_GlobalEnv); /* prepare for labelformat */
1657 
    oargs = args;
 1659 
    oargs = args;
1658 
 
 1660 
 
1659 
    sx = CAR(args);
 1661 
    sx = CAR(args);
1660 
    internalTypeCheck(call, sx, REALSXP);
 1662 
    internalTypeCheck(call, sx, REALSXP);
1661 
    nx = LENGTH(sx);
 1663 
    nx = LENGTH(sx);