Displaying 1 result from an estimated 1 matches for "noduplicaterownames".
2008 Jul 01
1
[.data.frame speedup
...fo(x, 0L)))
}
xx <- x
cols <- names(xx)
x <- vector("list", length(x))
x <- .Call("R_copyDFattr", xx, x, PACKAGE = "base")
oldClass(x) <- attr(x, "row.names") <- NULL
# Do not want to check for duplicates if don't need to
noDuplicateRowNames <- (is.logical(i) ||
(!is.null(attr(x, "dup.row.names"))) ||
(is.numeric(i) && min(i, 0, na.rm=TRUE) < 0) ||
(!notSorted(i, strict = TRUE)))
if (!missing(j)) {
x <- x[j]
cols <- nam...