diff --git a/R/method-ops.R b/R/method-ops.R index 024f2ca4..a9173574 100644 --- a/R/method-ops.R +++ b/R/method-ops.R @@ -26,13 +26,3 @@ chooseOpsMethod.S7_object <- function(x, y, mx, my, cl, reverse) TRUE matrixOps.S7_object <- function(x, y) { base_matrix_ops[[.Generic]](x, y) } - - -on_load_define_matrixOps <- function() { - # if (getRversion() >= "4.3.0") { - # } else { - # matrixOps.S7_object <<- function(e1, e2) { - # base_matrix_ops[[.Generic]](e1, e2) - # } - # } -} diff --git a/R/zzz.R b/R/zzz.R index 314cd88f..a68c29e3 100644 --- a/R/zzz.R +++ b/R/zzz.R @@ -122,7 +122,6 @@ methods::setOldClass(c("S7_method", "function", "S7_object")) activate_backward_compatiblility() on_load_make_convert_generic() - on_load_define_matrixOps() on_load_define_ops() on_load_define_or_methods() on_load_define_S7_type()