The R Project SVN R

Rev

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

Rev 33460 Rev 33548
Line 133... Line 133...
133 
			}
 133 
			}
134 
			break;
 134 
			break;
135 
		    case 'e':
 135 
		    case 'e':
136 
		    case 'f':
 136 
		    case 'f':
137 
		    case 'g':
 137 
		    case 'g':
138 
			if(TYPEOF(this) == INTSXP || TYPEOF(this) == LGLSXP)
 138 
			if(TYPEOF(this) != REALSXP) {
- 
 
 139 
			    PROTECT(tmp = lang2(install("as.double"), this));
139 
			    this = coerceVector(this, REALSXP);
 140 
			    this = eval(tmp, env);
- 
 
 141 
			    UNPROTECT(1);
- 
 
 142 
			}
140 
			break;
 143 
			break;
141 
		    case 's':
 144 
		    case 's':
142 
			if(TYPEOF(this) != STRSXP) {
 145 
			if(TYPEOF(this) != STRSXP) {
143 
			    PROTECT(tmp =
146 
			    PROTECT(tmp =
144 
				    lang2(install("as.character"), this));
 147 
				    lang2(install("as.character"), this));