fixes tidyverse#525

Ryo-N7 · Jan 19, 2019 · 163918e · 163918e
1 parent 9516eba
commit 163918e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/id.R b/R/id.R
@@ -38,7 +38,7 @@ id <- function(.variables, drop = FALSE) {
 }
 
 id_var <- function(x, drop = FALSE) {
-  if (!is_null(attr(x, "n")) && !drop) return(x)
+  if (!is_null(attr(x, "n", exact = TRUE)) && !drop) return(x)
 
   if (is.factor(x) && !drop) {
     x_na <- addNA(x, ifany = TRUE)