R Under development (unstable) (2024-10-31 r87283 ucrt) -- "Unsuffered Consequences" Copyright (C) 2024 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > library("R.oo") Loading required package: R.methodsS3 R.methodsS3 v1.8.2 (2022-06-13 22:00:14 UTC) successfully loaded. See ?R.methodsS3 for help. R.oo v1.27.0 successfully loaded. See ?R.oo for help. Attaching package: 'R.oo' The following object is masked from 'package:R.methodsS3': throw The following objects are masked from 'package:methods': getClasses, getMethods The following objects are masked from 'package:base': attach, detach, load, save > > message("TESTING: Interface...") TESTING: Interface... > > int <- Interface() > print(int) [1] "Interface" > > setConstructorS3("MyInterface", function(...) { + extend(Interface(), "MyInterface") + }) > int <- MyInterface() > print(int) [1] "MyInterface, Interface" > > setConstructorS3("MyClass", function(...) { + extend(Object(), c("MyClass", uses(MyInterface(), Interface()))) + }) > obj <- MyClass() > print(obj) [1] "MyClass: 0x000001d796b482c8" > > > ## For some reason uses() doesn't play well with covr > if (!"covr" %in% loadedNamespaces()) { + setConstructorS3("MyClass", function(...) { + extend(Object(), c("MyClass", uses("MyInterface", "Interface"))) + }) + obj <- MyClass() + print(obj) + } [1] "MyClass: 0x000001d794767ce0" > > message("TESTING: Interface...DONE") TESTING: Interface...DONE > > proc.time() user system elapsed 0.26 0.14 0.39