restore method-register-S4.R; got lost in the rebase shuffle

Author: lawremi

R/method-register-S4.R

@@ -0,0 +1,11 @@
+register_S4_method <- function(
+  generic,
+  signature,
+  method,
+  env = parent.frame(),
+  call = sys.call(-1L)
+) {
+  S4_env <- topenv(env)
+  S4_signature <- lapply(signature, S4_class, S4_env = S4_env, call = call)
+  methods::setMethod(generic, S4_signature, method, where = S4_env)
+}

R/method-register.R

@@ -317,18 +317,6 @@ check_method <- function(
   invisible(TRUE)
 }
 
-register_S4_method <- function(
-  generic,
-  signature,
-  method,
-  env = parent.frame(),
-  call = sys.call(-1L)
-) {
-  S4_env <- topenv(env)
-  S4_signature <- lapply(signature, S4_class, S4_env = S4_env, call = call)
-  methods::setMethod(generic, S4_signature, method, where = S4_env)
-}
-
 #' @export
 print.S7_method <- function(x, ...) {
   signature <- method_signature(x@generic, x@signature)