The R Project SVN R

Rev

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

Rev 36123 Rev 36209
Line 611... Line 611...
611 
    args = CDR(args);
 611 
    args = CDR(args);
612 
 
 612 
 
613 
    asp = (logscale) ? NA_REAL : asReal(CAR(args));;
 613 
    asp = (logscale) ? NA_REAL : asReal(CAR(args));;
614 
    args = CDR(args);
 614 
    args = CDR(args);
615 
 
 615 
 
- 
 
 616 
    /* This reads [xy]axs and lab, used in GScale */
616 
    GSavePars(dd);
 617 
    GSavePars(dd);
617 
    ProcessInlinePars(args, dd, call);
 618 
    ProcessInlinePars(args, dd, call);
618 
 
 619 
 
619 
    if (isInteger(xlim)) {
 620 
    if (isInteger(xlim)) {
620 
	if (INTEGER(xlim)[0] == NA_INTEGER || INTEGER(xlim)[1] == NA_INTEGER)
 621 
	if (INTEGER(xlim)[0] == NA_INTEGER || INTEGER(xlim)[1] == NA_INTEGER)
Line 673... Line 674...
673 
    }
 674 
    }
674 
    /* GScale set the [xy]axp parameters */
 675 
    /* GScale set the [xy]axp parameters */
675 
    GMapWin2Fig(dd);
 676 
    GMapWin2Fig(dd);
676 
    GRestorePars(dd);
 677 
    GRestorePars(dd);
677 
    /* This has now clobbered the Rf_ggptr settings for coord system */
 678 
    /* This has now clobbered the Rf_ggptr settings for coord system */
- 
 
 679 
 
678 
    /* NOTE: the operation is only recorded if there was no "error" */
 680 
    /* NOTE: the operation is only recorded if there was no "error" */
679 
    if (GRecording(call, dd))
 681 
    if (GRecording(call, dd))
680 
	recordGraphicOperation(op, originalArgs, dd);
 682 
	recordGraphicOperation(op, originalArgs, dd);
681 
    return R_NilValue;
 683 
    return R_NilValue;
682 
}
 684 
}