The R Project SVN R

(root)/trunk/src/main/array.c @ 63243 – Rev 64656 → 65019



	n = LENGTH(xdims);
	shorten = 0;
	for (i = 0; i < n; i++)
	    if (INTEGER(xdims)[i] == 1) shorten = 1;
	if (shorten) {
	    if (MAYBE_REFERENCED(x)) x = duplicate(x);
	    x = DropDims(x);
	}
    }
    return x;
}

Rev 64656	Rev 65019
Line 399...	Line 399...
399	`n = LENGTH(xdims);`	399	`n = LENGTH(xdims);`
400	`shorten = 0;`	400	`shorten = 0;`
401	`for (i = 0; i < n; i++)`	401	`for (i = 0; i < n; i++)`
402	`if (INTEGER(xdims)[i] == 1) shorten = 1;`	402	`if (INTEGER(xdims)[i] == 1) shorten = 1;`
403	`if (shorten) {`	403	`if (shorten) {`
404	`if (NAMED(x)) x = duplicate(x);`	404	`if (MAYBE_REFERENCED(x)) x = duplicate(x);`
405	`x = DropDims(x);`	405	`x = DropDims(x);`
406	`}`	406	`}`
407	`}`	407	`}`
408	`return x;`	408	`return x;`
409	`}`	409	`}`