tests/testthat/test-methods.R
In r-lib/sloop: Helpers for 'OOP' in R
test_that("multiplication works", {
registerS3method("sloop_foo", "blah", function(x) {}, envir = asNamespace("sloop"))
out <- s3_methods_generic("sloop_foo")
expect_equal(nrow(out), 1)
expect_equal(out$generic, "sloop_foo")
expect_equal(out$class, "blah")
})
r-lib/sloop documentation built on Nov. 4, 2023, 4:20 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("multiplication works", {
registerS3method("sloop_foo", "blah", function(x) {}, envir = asNamespace("sloop"))
out <- s3_methods_generic("sloop_foo")
expect_equal(nrow(out), 1)
expect_equal(out$generic, "sloop_foo")
expect_equal(out$class, "blah")
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.