The R Project SVN R

Rev

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

Rev 90115 Rev 90129
Line 1884... Line 1884...
1884 
	UNPROTECT(1);
 1884 
	UNPROTECT(1);
1885 
    }
 1885 
    }
1886 
    else // !resize
 1886 
    else // !resize
1887 
	setAttrib(r, R_DimSymbol, dimsa);
 1887 
	setAttrib(r, R_DimSymbol, dimsa);
1888 
 
 1888 
 
- 
 
 1889 
    /* FIXME:
- 
 
 1890 
       The docs have forever said that all "other" (not dim or dimnames)
- 
 
 1891 
       attributes are copied.  This can easily be achieved via
- 
 
 1892 
         copyMostAttrib(a, r);
- 
 
 1893 
       which seems to break about 15 CRAN packages.
- 
 
 1894 
    */
- 
 
 1895 
 
1889 
    UNPROTECT(3); /* dimsa, r, dimsr */
 1896 
    UNPROTECT(3); /* dimsa, r, dimsr */
1890 
    return r;
 1897 
    return r;
1891 
}
 1898 
}
1892 
 
 1899 
 
1893 
/* colSums(x, n, p, na.rm) and friends */
 1900 
/* colSums(x, n, p, na.rm) and friends */