/usr/share/doc/r-cran-r.oo/tests/Interface.R

library("R.oo")

message("TESTING: Interface...")

int <- Interface()
print(int)

setConstructorS3("MyInterface", function(...) {
  extend(Interface(), "MyInterface")
})
int <- MyInterface()
print(int)

setConstructorS3("MyClass", function(...) {
  extend(Object(), c("MyClass", uses(MyInterface(), Interface())))
})
obj <- MyClass()
print(obj)


## For some reason uses(<string>) doesn't play well with covr
if (!"covr" %in% loadedNamespaces()) {
  setConstructorS3("MyClass", function(...) {
    extend(Object(), c("MyClass", uses("MyInterface", "Interface")))
  })
  obj <- MyClass()
  print(obj)
}

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

Generated by dwww version 1.15 on Mon Jun 24 15:42:43 CEST 2024.