library("R.methodsS3") message("TESTING: isGenericS3/S4()...") FUNs <- list( isGenericS3=isGenericS3, isGenericS4=isGenericS4 ) for (name in names(FUNs)) { cat(sprintf("%s():\n", name)) FUN <- FUNs[[name]] print(FUN("print")) print(FUN("show")) print(FUN("unknown")) print(FUN(print)) print(FUN(sum)) print(FUN(function() NULL)) } message("TESTING: isGenericS3/S4()...DONE")
Generated by dwww version 1.15 on Sun Jun 30 09:27:46 CEST 2024.