add label to exported methods

isoverse · Apr 25, 2014 · fa59ae8 · fa59ae8
1 parent 7ffb710
commit fa59ae8
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -30,6 +30,7 @@ exportMethods(as.value)
 exportMethods(as.weight)
 exportMethods(as.weighted_value)
 exportMethods(fractionate)
+exportMethods(label)
 exportMethods(mass_balance)
 exportMethods(shift_reference)
 exportMethods(weight)
diff --git a/R/show.R b/R/show.R
@@ -64,6 +64,7 @@ setMethod("unit", "Intensity", function(object) object@unit)
 
 #' Get the full label of an isotope data object
 #' @export
+#' @method label
 #' @examples
 #' \dontrun{
 #' label(ratio(...))
@@ -72,6 +73,10 @@ setMethod("unit", "Intensity", function(object) object@unit)
 #' }
 setGeneric("label", function(object) standardGeneric("label"))
 
+#' @export
+#' @method label
+setMethod("label", "ANY", function(object) stop("label() not defined for objects of type ", class(object)))
+
 # helper
 iso_label <- function(object, show_compound = TRUE) {
     paste(c(