CLEANUP: Don't specify arguments for NextMethod().

HenrikBengtsson/Wishlist-for-R#44
HenrikBengtsson · May 30, 2018 · 4c3f4e4 · 4c3f4e4
1 parent f2af2f6
commit 4c3f4e4
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/DevEvalProduct.R b/R/DevEvalProduct.R
@@ -97,7 +97,7 @@ setMethodS3("[[", "DevEvalProduct", function(x, name, ...) {
   })
   if (inherits(res, "Exception")) throw(res)
   if (!inherits(res, "simpleError")) return(res)
-  NextMethod("[[")
+  NextMethod()
 }, private=TRUE)
 
 

diff --git a/R/recordedplot-methods.R b/R/recordedplot-methods.R
@@ -34,7 +34,7 @@ as.architecture <- function(x, ostype=.Platform$OS.type, arch=R.version$arch, pt
 #' @export
 setMethodS3("architecture", "RecordedPlot", function(x, ...) {
   system <- attr(x, "system")
-  if (is.null(system)) return(NextMethod("architecture"))
+  if (is.null(system)) return(NextMethod())
 
   ostype <- system$ostype
   if (is.null(ostype)) ostype <- NA_character_
@@ -173,7 +173,7 @@ gpar <- function(x) {
 
 #' @export
 setMethodS3("as.architecture", "RecordedPlot", function(x, ...) {
-  y <- NextMethod("as.architecture")
+  y <- NextMethod()
   system <- attr(x, "system")
   if (is.null(system)) return(y)