The R Project SVN R

Rev

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

Rev 10172 Rev 10217
Line 674... Line 674...
674 
    if (!isVector(CAR(tmp)))
 674 
    if (!isVector(CAR(tmp)))
675 
	error("internal type error in dataentry");
 675 
	error("internal type error in dataentry");
676 
    len = LENGTH(CAR(tmp));
 676 
    len = LENGTH(CAR(tmp));
677 
    type = TYPEOF(CAR(tmp));
 677 
    type = TYPEOF(CAR(tmp));
678 
    if (len < wrow) {
 678 
    if (len < wrow) {
679 
	for (newlen = len * 2 ; newlen < wrow ; newlen *= 2)
 679 
	for (newlen = max(len * 2, 10) ; newlen < wrow ; newlen *= 2)
680 
	    ;
 680 
	    ;
681 
	tmp2 = ssNewVector(type, newlen);
 681 
	tmp2 = ssNewVector(type, newlen);
682 
	for (i = 0; i < len; i++)
 682 
	for (i = 0; i < len; i++)
683 
	    if (type == REALSXP)
 683 
	    if (type == REALSXP)
684 
		REAL(tmp2)[i] = REAL(CAR(tmp))[i];
 684 
		REAL(tmp2)[i] = REAL(CAR(tmp))[i];