zoo/R/merge.zoo.R

14   if(any(sapply(args, function(x) is.null(dim(x)) && length(x) == 0L && length(index(x)) > 0L)))
17   ncols <- sapply(args, NCOL)
22   namsNULL <- sapply(nams, is.null)
26       namsID <- sapply(nams, function(x) identical(x, nam1))
28         namsSORT <- sapply(nams, function(x) identical(sort(x), sort(nam1)))
42   nulldim <- sapply(argsdata, function(a) is.null(dim(a)))
59   freq <- if(!("zooreg" %in% unlist(sapply(args, class)))) NULL
61 	      freq <- c(frequency(rval), unlist(sapply(args, frequency)))
99     stopifnot(all(sapply(args, function(x) is.zoo(x) || !is.plain(x) ||
102     scalars <- sapply(args, is.scalar)
113     freq <- if(!("zooreg" %in% unlist(sapply(args, class)))) NULL
115 	  freq <- unlist(sapply(args, frequency))
128             dep <- sapply(l[fixup], function(x) deparse(x)[1])
149     if(any(sapply(indexlist, index_duplicates)))
152     indexclasses <- sapply(indexlist, function(x) class(x)[1])
295       nam2 <- sapply(rval, function(z) 1:NCOL(z))
297       nam1 <- unlist(ifelse(sapply(rval, NCOL) > 1, nam2, nam1))
306     rval <- rval[sapply(rval, function(x) length(x) > 0)]
324     if (length(unlist(sapply(args, colnames))) > 0) {