Permalink
Browse files

Fix small test buglet

  • Loading branch information...
1 parent a9430ff commit dc98253e4ec68951c3c53426f13c31a93e47d13c @hadley committed Oct 29, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 inst/tests/test-array.r
View
@@ -101,7 +101,7 @@ test_that("alply sets dims and dimnames, equivalence to permutation", {
(x+y+z)>0 & !any(duplicated(setdiff(c(x,y,z), 0))))),
1, function(x) setdiff(x, 0)))
p_aperm <- llply(p_alply, function(x) union(setdiff(1:3, x), x))
- alplys <- lapply(p_alply, alply, .data=x, identity, .dims=TRUE)
+ alplys <- lapply(p_alply, alply, .data=x, identity)
#alply will fill in dimnames on a dim that has none, so match that here
dimnames(x)[[3]] <- c("1", "2")
aperms <- llply(p_aperm, .fun=aperm, a=x)

0 comments on commit dc98253

Please sign in to comment.