# SCM Repository

[matrix] Diff of /pkg/Matrix/R/bind2.R
 [matrix] / pkg / Matrix / R / bind2.R

# Diff of /pkg/Matrix/R/bind2.R

revision 3244, Thu Jan 11 17:11:27 2018 UTC revision 3245, Mon Jan 22 23:04:37 2018 UTC
# Line 23  Line 23
23  setMethod("cbind2", signature(x = "Matrix", y = "missing"),  setMethod("cbind2", signature(x = "Matrix", y = "missing"),
24            function(x, y, ...) x)            function(x, y, ...) x)
25  setMethod("cbind2", signature(x = "NULL", y="Matrix"),  setMethod("cbind2", signature(x = "NULL", y="Matrix"),
26            function(x, y, ...) x)            function(x, y, ...) y)
27  ## using "atomicVector" not just "numeric"  ## using "atomicVector" not just "numeric"
28  setMethod("cbind2", signature(x = "Matrix", y = "atomicVector"),  setMethod("cbind2", signature(x = "Matrix", y = "atomicVector"),
29            function(x, y, ...) cbind2(x, matrix(y, nrow = nrow(x))))            function(x, y, ...) cbind2(x, matrix(y, nrow = nrow(x))))
# Line 39  Line 39
39  setMethod("rbind2", signature(x = "Matrix", y = "missing"),  setMethod("rbind2", signature(x = "Matrix", y = "missing"),
40            function(x, y, ...) x)            function(x, y, ...) x)
41  setMethod("rbind2", signature(x = "NULL", y="Matrix"),  setMethod("rbind2", signature(x = "NULL", y="Matrix"),
42            function(x, y, ...) x)            function(x, y, ...) y)
43  setMethod("rbind2", signature(x = "Matrix", y = "atomicVector"),  setMethod("rbind2", signature(x = "Matrix", y = "atomicVector"),
44            function(x, y, ...) rbind2(x, matrix(y, ncol = ncol(x))))            function(x, y, ...) rbind2(x, matrix(y, ncol = ncol(x))))
45  setMethod("rbind2", signature(x = "atomicVector", y = "Matrix"),  setMethod("rbind2", signature(x = "atomicVector", y = "Matrix"),

Legend:
 Removed from v.3244 changed lines Added in v.3245