/usr/share/doc/r-cran-r.methodss3/tests/getDispatchMethodS3.R

library("R.methodsS3")

message("TESTING: getDispatchMethodS3()...")

fcn <- getDispatchMethodS3("print", "default")
print(fcn)

tryCatch({
  fcn <- getDispatchMethodS3("print", "unknown")
  print(fcn)
}, error = function(ex) {
  print(ex)
})

message("TESTING: getDispatchMethodS3()...DONE")

Generated by dwww version 1.15 on Sun Jun 30 09:35:51 CEST 2024.