weird issues with dox on [

DOI-USGS · Oct 3, 2015 · 3a6e1ad · 3a6e1ad
1 parent 3958fe2
commit 3a6e1ad
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 26 deletions.
diff --git a/R/07-datagroup-obj.R b/R/07-datagroup-obj.R
@@ -28,34 +28,19 @@ setGeneric("datagroup", function(...) {
   standardGeneric("datagroup")
 })
 
-#'@param ... additional arguments passed to initialize method
-#'@rdname datagroup-methods
-#'@aliases datagroup,datagroup-methods
-setMethod("datagroup", signature(), function(...) {
-  ## create new geojob object
-  datagroup <- new("datagroup",...)
-  return(datagroup)
-})
-
 #' @param x a datagroup object
 #' @param i index specifying elements to extract or replace.
 #' @param j not implemented
 #' @param drop not implemented
-#'@rdname datagroup-methods
-#'@aliases datagroup,datagroup-methods
-setMethod("[", signature(x='datagroup',i="ANY",j='ANY'), function(x, i, j, ..., drop = TRUE) {
-  if (is.character(i))
-    i = which(title(x) %in% i)
-  return(datagroup(x@group[i]))
+#' @param ... additional arguments passed to initialize method
+#' @rdname datagroup-methods
+#' @aliases datagroup,datagroup-methods
+setMethod("datagroup", signature(), function(...) {
+  ## create new geojob object
+  datagroup <- new("datagroup",...)
+  return(datagroup)
 })
 
-#'@rdname datagroup-methods
-#'@aliases datagroup,datagroup-methods
-setMethod("[[", signature('datagroup',i="ANY",j='ANY'), function(x, i, j, ..., drop = TRUE) {
-
-
-  return(x@group[[i]])
-})
 
 setAs('datagroup', 'webdata', function(from){
   if (length(from@group) > 1){
@@ -106,3 +91,20 @@ setMethod(f = "length",signature(x = "datagroup"),
           definition = function(x){
             return(length(x@group))
           })
+
+
+#'@rdname datagroup-methods
+#'@aliases datagroup,datagroup-methods
+setMethod("[", signature(x='datagroup',i="ANY",j='ANY'), function(x, i, j, ..., drop = TRUE) {
+  if (is.character(i))
+    i = which(title(x) %in% i)
+  return(datagroup(x@group[i]))
+})
+
+#'@rdname datagroup-methods
+#'@aliases datagroup,datagroup-methods
+setMethod("[[", signature('datagroup',i="ANY",j='ANY'), function(x, i, j, ..., drop = TRUE) {
+
+
+  return(x@group[[i]])
+})
diff --git a/man/datagroup-methods.Rd b/man/datagroup-methods.Rd
@@ -2,7 +2,7 @@
 % Please edit documentation in R/07-datagroup-obj.R
 \docType{methods}
 \name{datagroup}
-\alias{[,datagroup-method}
+\alias{[,datagroup,ANY,ANY-method}
 \alias{[[,datagroup,ANY,ANY-method}
 \alias{datagroup}
 \alias{datagroup,ANY-method}
@@ -14,11 +14,11 @@ datagroup(...)
 
 \S4method{datagroup}{ANY}(...)
 
-\S4method{[}{datagroup}(x, i, j, ..., drop = TRUE)
+\S4method{length}{datagroup}(x)
 
-\S4method{[[}{datagroup,ANY,ANY}(x, i, j, ..., drop = TRUE)
+\S4method{[}{datagroup,ANY,ANY}(x, i, j, ..., drop = TRUE)
 
-\S4method{length}{datagroup}(x)
+\S4method{[[}{datagroup,ANY,ANY}(x, i, j, ..., drop = TRUE)
 }
 \arguments{
 \item{...}{additional arguments passed to initialize method}