The R Project SVN – R – Diff – /trunk/src/main/plot.c

 SEXP do_identify(SEXP call, SEXP op, SEXP args, SEXP env)
+{
     SEXP ans, x, y, l, ind, pos, Offset, draw, saveans;
     double xi, yi, xp, yp, d, dmin, offset;
-    int i, imin, k, n, npts, plot, posi;
+    int i, imin, k, n, npts, plot, posi, warn;
     DevDesc *dd = CurrentDevice();
     /* If we are replaying the display list, then just redraw the
        labels beside the identified points */
     if (call == R_NilValue) {
 		if (d < dmin) {
 		    imin = i;
 		    dmin = d;
+		}
+	    }
+	    /* can't use warning because we want to print immediately  */
+	    /* might want to handle warn=2? */
+	    warn = asInteger(GetOption(install("warn"), R_NilValue));
-	    if (dmin > THRESHOLD)
+	    if (dmin > THRESHOLD) {
+	        if(warn >= 0)
-		REprintf("warning: no point with %.2f inches\n", THRESHOLD);
+		    REprintf("warning: no point with %.2f inches\n",
+                                        THRESHOLD);
+	    }
-	    else if (LOGICAL(ind)[imin])
+	    else if (LOGICAL(ind)[imin]) {
+	        if(warn >= 0 )
-		REprintf("warning: nearest point already identified\n");
+		    REprintf("warning: nearest point already identified\n");
+	    }
 	    else {
 		k++;
 		LOGICAL(ind)[imin] = 1;
 		xi = REAL(x)[imin];

The R Project SVN R