.

Author: venom1204

R/transpose.R

@@ -1,5 +1,8 @@
 transpose = function(l, fill=NA, ignore.empty=FALSE, keep.names=NULL, make.names=NULL, list.cols=FALSE, keep=NULL) {
-  if (!is.null(keep)) keep = as.integer(keep)
+  if (!is.null(keep)) {
+  if (!is.numeric(keep)) stopf("'keep' must be an integer vector.")
+  keep = as.integer(keep)
+  }
   if (!is.null(make.names)) {
     stopifnot(length(make.names)==1L)
     if (is.character(make.names)) {

inst/tests/tests.Rraw

@@ -21988,7 +21988,7 @@ test(2387.06, setnafill(copy(DT3), type="locf", cols=c(TRUE,FALSE)), error="'col
 
 # transpose() supports keep argument, #5250
 x = list(1:5, 6:10, 11:15)
-test(2388.01, transpose(x, keep=1:2), transpose(x)[1:2])
+test(2388.01, transpose(list(1:5), keep="a"), error="'keep' must be an integer vector.")
 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))