test [["?"]] for all objects

dankelley · Dec 25, 2021 · 6b99062 · 6b99062
1 parent d8f60ff
commit 6b99062
Show file tree

Hide file tree

Showing 29 changed files with 155 additions and 165 deletions.
diff --git a/R/adp.R b/R/adp.R
@@ -677,9 +677,13 @@ setMethod(f="[[",
               ##>message("ISAD2CP=", ISAD2CP)
               metadataDerived <- c("coordinate")
               numberOfBeams <- if (ISAD2CP) 4 else x@metadata$numberOfBeams
-              dataDerived <- c(paste0("u", seq_len(numberOfBeams)),
-                  paste0("a", seq_len(numberOfBeams)),
-                  paste0("q", seq_len(numberOfBeams)))
+              if (is.null(numberOfBeams)) {
+                  dataDerived <- c("a", "u", "q")
+              } else {
+                  dataDerived <- c(paste0("u", seq_len(numberOfBeams)),
+                      paste0("a", seq_len(numberOfBeams)),
+                      paste0("q", seq_len(numberOfBeams)))
+              }
               if (i == "?")
                   return(list(metadata=sort(names(x@metadata)),
                           metadataDerived=sort(metadataDerived),

diff --git a/man-roxygen/sub_subTemplate.R b/man-roxygen/sub_subTemplate.R
@@ -1,10 +1,10 @@
 # vim:textwidth=80:expandtab:shiftwidth=4:softtabstop=4
 
-#' @param i Character string indicating the name of an item to extract.
+#' @param i character value indicating the name of an item to extract.
 #'
-#' @param j Optional additional information on the `i` item.
+#' @param j optional additional information on the `i` item.
 #'
-#' @param ... Optional additional information (ignored).
+#' @param ... ignored.
 #'
 #' @description
 #'
@@ -23,9 +23,8 @@
 #'
 #' Some understanding of the subclass is required to know what can be retrieved
 #' with `[[`. When dealing with an unfamiliar subclass, it can be useful to
-#' first use `x[["?"]]` to get a listing of the retrievable items. The first
-#' entry of \dQuote{Details of the Specialized Method} provides more information
-#' on this.
+#' first use `x[["?"]]` to get a listing of the retrievable items. See
+#' \dQuote{Details of the Specialized Method} for more information.
 #'
 ## NOTE: Roxygen2 puts this after the Specialized method, which is where I want
 ## it.  I don't understand why, though and therefore will be on the lookout for

diff --git a/man/sub-sub-adp-method.Rd b/man/sub-sub-adp-method.Rd
diff --git a/man/sub-sub-adv-method.Rd b/man/sub-sub-adv-method.Rd
diff --git a/man/sub-sub-amsr-method.Rd b/man/sub-sub-amsr-method.Rd
diff --git a/man/sub-sub-argo-method.Rd b/man/sub-sub-argo-method.Rd
diff --git a/man/sub-sub-bremen-method.Rd b/man/sub-sub-bremen-method.Rd
diff --git a/man/sub-sub-cm-method.Rd b/man/sub-sub-cm-method.Rd
diff --git a/man/sub-sub-coastline-method.Rd b/man/sub-sub-coastline-method.Rd
diff --git a/man/sub-sub-ctd-method.Rd b/man/sub-sub-ctd-method.Rd
diff --git a/man/sub-sub-echosounder-method.Rd b/man/sub-sub-echosounder-method.Rd
diff --git a/man/sub-sub-g1sst-method.Rd b/man/sub-sub-g1sst-method.Rd
diff --git a/man/sub-sub-gps-method.Rd b/man/sub-sub-gps-method.Rd
diff --git a/man/sub-sub-ladp-method.Rd b/man/sub-sub-ladp-method.Rd
diff --git a/man/sub-sub-landsat-method.Rd b/man/sub-sub-landsat-method.Rd