The R Project SVN R

Rev

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

Rev 75453 Rev 75597
Line 416... Line 416...
416 
	n = LENGTH(xdims);
 416 
	n = LENGTH(xdims);
417 
	shorten = 0;
 417 
	shorten = 0;
418 
	for (i = 0; i < n; i++)
 418 
	for (i = 0; i < n; i++)
419 
	    if (INTEGER(xdims)[i] == 1) shorten = 1;
 419 
	    if (INTEGER(xdims)[i] == 1) shorten = 1;
420 
	if (shorten) {
 420 
	if (shorten) {
421 
	    if (MAYBE_REFERENCED(x)) x = duplicate(x);
 421 
	    if (MAYBE_REFERENCED(x)) x = R_duplicate_attr(x);
422 
	    x = DropDims(x);
 422 
	    x = DropDims(x);
423 
	}
 423 
	}
424 
    }
 424 
    }
425 
    return x;
 425 
    return x;
426 
}
 426 
}