fixed small bug

EdwinTh · Feb 1, 2017 · 32d99b7 · 32d99b7
1 parent e3b750c
commit 32d99b7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/pad.R b/R/pad.R
@@ -226,7 +226,7 @@ pad_multiple <- function(x,
     stop('Not all grouping variables are column names of x.')
   }
 
-  groupings <- unique(x[, colnames(x) %in% group])
+  groupings <- unique(x[, colnames(x) %in% group, drop = FALSE])
   padded_groups <- vector("list", nrow(groupings))
 
   for (i in 1:nrow(groupings)){