started on #220 overloading [ and [[ methods, but commented out for now

ropensci · Jul 26, 2016 · 2000fb7 · 2000fb7
1 parent 577055a
commit 2000fb7
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 3 deletions.
diff --git a/R/overload_classes.R b/R/overload_classes.R
@@ -0,0 +1,22 @@
+# gbif class sub-setters -------------------
+# `[[.gbif` <- function(x, i) {
+#   #y <- NextMethod()
+#   if (inherits(i, "character")) {
+#     tmp <- x[names(x) %in% i][[1]]
+#   } else {
+#     tmp <- x[[i]]
+#   }
+#   structure(tmp, class = "gbif",
+#             args = attr(x, 'args'),
+#             type = 'single',
+#             return = attr(x, 'return'))
+#   #x[names(x) %in% i][1]
+# }
+
+# `[.gbif` <- function(x, i) {
+#   tmp <- x[names(x) %in% i]
+#   structure(tmp, class = "gbif",
+#             args = attr(x, 'args'),
+#             type = 'single',
+#             return = attr(x, 'return'))
+# }
diff --git a/man/occ_search.Rd b/man/occ_search.Rd