delete unused helper

R/generic.R

@@ -189,26 +189,6 @@ methods_rec <- function(x, signature) {
   unlist(methods, recursive = FALSE)
 }
 
-make_method_name <- function(generic, chr_signature) {
-  name <- sprintf("%s@methods$%s",
-                  generic@name,
-                  paste0(chr_signature, collapse = "$"))
-
-  pkgname <- topNamespaceName(environment(generic))
-  if (is.null(pkgname))
-    return(name)
-
-  for (get in c("::", ":::")) {
-    tryCatch({
-      generic2 <- eval(call(get, as.name(pkgname), as.name(generic@name)), baseenv())
-      if (identical(generic, generic2))
-        return(paste0(c(pkgname, get, name), collapse = ""))
-    }, error = function(e) NULL)
-  }
-
-  name
-}
-
 generic_add_method <- function(generic, signature, method) {
   p_tbl <- generic@methods
   chr_signature <- vcapply(signature, class_register)