Nothing
test_that("s3_methods", {
m <- mutex()
expect_identical(format(m), m$name)
expect_identical(as.character(m), m$name)
expect_output(print(m))
expect_true(m$remove())
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.