Small edits

R/AllGenerics.R

@@ -203,7 +203,7 @@ NULL
 #' Row Sums
 #'
 #' Retrieves or defines the row sums (before closure).
-#' @param x An object from which to get or set `totals`.
+#' @param object An object from which to get or set `totals`.
 #' @param value A possible value for the `totals` of `x`.
 #' @return
 #'  * `total() <- value` returns an object of the same sort as `x` with the new
@@ -216,13 +216,13 @@ NULL
 #' @aliases total-method
 setGeneric(
   name = "total",
-  def = function(x) standardGeneric("total")
+  def = function(object) standardGeneric("total")
 )
 
 #' @rdname total
 setGeneric(
   name = "total<-",
-  def = function(x, value) standardGeneric("total<-")
+  def = function(object, value) standardGeneric("total<-")
 )
 
 #' Working With Groups

R/mutators.R

@@ -52,21 +52,21 @@ setMethod("weights", "LogRatio", weights.LogRatio)
 #' @export
 #' @rdname total
 #' @aliases total,CompositionMatrix-method
-setMethod("total", "CompositionMatrix", function(x) x@totals)
+setMethod("total", "CompositionMatrix", function(object) object@totals)
 
 #' @export
 #' @rdname total
 #' @aliases total,LogRatio-method
-setMethod("total", "LogRatio", function(x) x@totals)
+setMethod("total", "LogRatio", function(object) object@totals)
 
 #' @export
 #' @rdname total
 setMethod(
   f = "total<-",
   signature = "CompositionMatrix",
-  definition = function(x, value) {
-    x@totals <- if (is.null(value)) rowSums(x) else as.numeric(value)
-    methods::validObject(x)
-    x
+  definition = function(object, value) {
+    object@totals <- if (is.null(value)) rowSums(object) else as.numeric(value)
+    methods::validObject(object)
+    object
   }
 )