Fix another bug with id and integers

hadley · Sep 20, 2010 · 0d3d01e · 0d3d01e
1 parent af539c2
commit 0d3d01e
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/id.r b/R/id.r
@@ -45,11 +45,10 @@ id <- function(.variables, drop = FALSE) {
   # browser()
 
   if (drop) {
-    res <- id_var(res, drop = TRUE)
+    id_var(res, drop = TRUE)
   } else {
-    as.integer(res)
+    structure(as.integer(res), n = attr(res, "n"))
   }
-
 }
 ninteraction <- id