Correct bug in pdata.frame in detection of 3rd index variable (#50)

ycroissant · Sep 8, 2023 · f9209b5 · f9209b5
1 parent f057efc
commit f9209b5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/tool_pdata.frame.R b/R/tool_pdata.frame.R
@@ -265,7 +265,7 @@ pdata.frame <- function(x, index = NULL, drop.index = FALSE, row.names = TRUE,
     # grouping variable, this should be the third element of the index
     # vector or any "group" named element of this vector
     group.name <- NULL
-    if (! is.null(names(index)) || length(index == 3L)){
+    if (! is.null(names(index)) || length(index) == 3L){
         if (! is.null(names(index))){
             grouppos <- match("group", names(index))
             if (! is.na(grouppos)){