The R Project SVN – R-packages – Diff – /branches/Matrix-APIchange/R/sparseVector.R

 				value = "replValue"),
 		 replSPvec)
-## a "method" for c(<sparseVector>, <sparseVector>):
+## a "method" for c(<(sparse)Vector>, <(sparse)Vector>):
 c2v <- function(x, y) {
-    cx <- class(x)
-    cy <- class(y)
+    ## these as(., "sp..V..") check input implicitly:
-    stopifnot(extends(cx, "sparseVector"),
+    cx <- class(x <- as(x, "sparseVector"))
-              extends(cy, "sparseVector"))
+    cy <- class(y <- as(y, "sparseVector"))
     if(cx != cy) { ## find "common" class; result does have 'x' slot
         cxy <- c(cx,cy)
         commType <- {
             if(all(cxy %in% c("nsparseVector", "lsparseVector")))
                 "lsparseVector"

The R Project SVN R-packages