Fix bug in method export

crowding · Jul 13, 2011 · 72b9bfe · 72b9bfe
1 parent 3b418dd
commit 72b9bfe
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -70,8 +70,8 @@ S3method("[",indexed)
 S3method("[",quoted)
 S3method("[",split)
 S3method("[[",idf)
+S3method("[[",indexed_array)
 S3method("[[",indexed_df)
-S3method("[[",indexed)
 S3method(as.data.frame,"function")
 S3method(as.data.frame,idf)
 S3method(as.list,indexed)

diff --git a/R/indexed-array.r b/R/indexed-array.r
@@ -43,7 +43,7 @@ indexed_array <- function(env, index) {
 #' @S3method length indexed_array
 length.indexed_array <- function(x) nrow(x$index)
 
-#' @S3method [[ indexed
+#' @S3method [[ indexed_array
 "[[.indexed_array" <- function(x, i) {
   indices <- paste(x$index[i, ,drop=TRUE], collapse = ", ")