The R Project SVN R

Rev

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

Rev 19717 Rev 25629
Line 96... Line 96...
96 
			error("%s", "use format %d or %i for integer objects");
 96 
			error("%s", "use format %d or %i for integer objects");
97 
		    if (x == NA_INTEGER) {
 97 
		    if (x == NA_INTEGER) {
98 
			fmt[chunk-1] = 's';
 98 
			fmt[chunk-1] = 's';
99 
			sprintf(bit, fmt, "NA");
 99 
			sprintf(bit, fmt, "NA");
100 
		    } else
 100 
		    } else
101 
		    sprintf(bit, fmt, x);
 101 
			sprintf(bit, fmt, x);
102 
		    break;
 102 
		    break;
103 
		}
 103 
		}
104 
		case REALSXP:
 104 
		case REALSXP:
105 
		{
 105 
		{
106 
		    double x = REAL(CAR(args))[0];
 106 
		    double x = REAL(CAR(args))[0];