Create X to match Y
Return a default object of class
index2class(max(classIndex(x), classIndex(y)))
and length = length(y).
For example, suppose class(x) == 'numeric', for which
classIndex = 4. If class(y) = 'integer', then
an object of class 'numeric' is returned. However, if
class(y) = 'character', then an object of class
'character' is returned.
createX2matchY(x, y)
x, y |
objects of possibly different classes and lengths. |
A vector of the same length as y whose class is
index2class(max(classIndex(x), classIndex(y))).
Spencer Graves
##
## 1. NULL
## -
null <- createX2matchY(NULL, NULL)
# check
all.equal(null, NULL)
##
## 2. logical
##
lgcl3 <- createX2matchY(NULL,
c(FALSE, TRUE, FALSE))
# check
all.equal(lgcl3, logical(3))
##
## 3. integer
##
int3 <- createX2matchY(integer(0),
c(FALSE, TRUE, FALSE))
# check
all.equal(int3, integer(3))
##
## 4. list -> character
##
ch3 <- createX2matchY(integer(0),
list(a=1, b=2, c=3))
# check
all.equal(ch3, character(3))Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.