search for: gcheckstat

...This won't: > dev.off() null device 1 > xspline(c(0,1,0), c(1,0,1), draw=FALSE) Error in xspline(c(0, 1, 0), c(1, 0, 1), draw = FALSE) : plot.new has not been called yet R graphics internal are black magic to me. However, it seems that the error messge comes from function GCheckState(DevDesc *dd) in graphics.c, which is called by do_xspline(SEXP call, SEXP op, SEXP args, SEXP env) in plot.c even when xspline was called with draw = FALSE (and even before getting the argument draw into do_xspline). It seems that graphics device is needed somewhere even with draw = FALSE, since m...

...=20 >> xspline(c(0,1,0), c(1,0,1), draw=3DFALSE) >> =20 > Error in xspline(c(0, 1, 0), c(1, 0, 1), draw =3D FALSE) :=20 > plot.new has not been called yet > > R graphics internal are black magic to me. However, it seems that the e= rror > messge comes from function GCheckState(DevDesc *dd) in graphics.c, whic= h is > called by do_xspline(SEXP call, SEXP op, SEXP args, SEXP env) in plot.c= even > when xspline was called with draw =3D FALSE (and even before getting th= e argument > draw into do_xspline). It seems that graphics device is needed somewher= e even &...

....Internal(.Cur.picture(), "S_cur_pic", T, 1) ] ## The main problem is GPretty() in $RHOME/src/graphics/graphics.c ! ##R: plot.default() --> plot.new(); plot.window(xlim, ylim, log) ##C: 1: do_plot_window() in $RHOME/src/main/plot.c ## checks its arguments and then ## GCheckState(); GScale(xmin, xmax, 1); GScale(ymin, ymax, 2); ## 2: GScale(.) in $RHOME/src/graphics/graphics.c ## checks args; sets up 'xmin', 'xmax' depending on 'log',..axt' ## then GPretty(&xmin, &xmax, &n); ## ~~~~~~~ ## and puts its result in...

...uot; overrides the yt() function... What about this (lines 983-1031): SEXP do_rect(SEXP call, SEXP op, SEXP args, SEXP env) { SEXP sxl, sxr, syb, sys, col, lty, border; double *xl, *xr, *yb, *ys; int i, n, nxl, nxr, nyb, nys; int ncol, nlty, nborder; int colsave, ltysave; GCheckState(); if(length(args) < 4) errorcall(call, "too few arguments\n"); xypoints(call, args, &n); sxl = CAR(args); nxl = length(sxl); args = CDR(args); syb = CAR(args); nyb = length(syb); args = CDR(args); sxr = CAR(args); nxr = length(sxr); args = CDR(args); sys...