The R Project SVN R

Rev

Rev 90229 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 90229 Rev 90278
Line 1162... Line 1162...
1162 
    if(!recycle_1st && lengths_len < max_len) {
 1162 
    if(!recycle_1st && lengths_len < max_len) {
1163 
	/* warn that this will change, if arg was missing, at most *once* per R session */
 1163 
	/* warn that this will change, if arg was missing, at most *once* per R session */
1164 
	static bool warn_1st = true;
 1164 
	static bool warn_1st = true;
1165 
	if(warn_1st && maybe_warn) {
 1165 
	if(warn_1st && maybe_warn) {
1166 
	    char msg[99];
 1166 
	    char msg[99];
1167 
	    snprintf(msg, 99, "length(nvec) %ld < %ld = max(length(from), length(by))",
 1167 
	    snprintf(msg, 99, "length(nvec) = %lld < %lld = max(length(from), length(by))",
1168 
		     lengths_len, max_len);
 1168 
	             (long long) lengths_len, (long long) max_len);
1169 
	    warning(_("%s -- future R`s default 'recycle = TRUE' will recycle 'nvec'"), msg);
 1169 
	    warning(_("%s -- future R's default 'recycle = TRUE' will recycle 'nvec'"),
- 
 
 1170 
	            msg);
1170 
	    warn_1st = false;
 1171 
	    warn_1st = false;
1171 
	}
 1172 
	}
1172 
	max_len = lengths_len;
 1173 
	max_len = lengths_len;
1173 
    }
 1174 
    }
1174 
    const int *lengths_elt = INTEGER(lengths);
 1175 
    const int *lengths_elt = INTEGER(lengths);