..

Author: venom1204

R/transpose.R

@@ -33,7 +33,7 @@ tstrsplit = function(x, ..., fill=NA, type.convert=FALSE, keep, names=FALSE, rev
   if (rev) ans = lapply(ans, base::rev)
   if (!missing(keep)) {
     keep = suppressWarnings(as.integer(keep))
-    maxlen = if (length(ans)) max(vapply(ans, length, 0L)) else 0L
+    maxlen = if (length(ans)) max(lengths(ans)) else 0L
     chk = min(keep, na.rm=TRUE) >= min(1L, maxlen) && max(keep, na.rm=TRUE) <= maxlen
     if (!isTRUE(chk) || !length(keep) || anyNA(keep))
       stopf("'keep' should contain integer values between %d and %d.", min(1L, maxlen), maxlen)

inst/tests/tests.Rraw

@@ -21993,3 +21993,4 @@ test(2388.02, transpose(x, keep=c(5L,3L,1L)), transpose(x)[c(5,3,1)])
 test(2388.03, transpose(x, keep=c(1L,1L,3L)), transpose(x)[c(1,1,3)])
 test(2388.04, transpose(x, keep=NULL), transpose(x))
 test(2388.05, transpose(x, keep=1:2, fill=NA), transpose(x, fill=NA)[1:2])
+test(2388.06, transpose(x, keep=integer()), list())