Nothing
context("Basic Instantiation")
test_that("New Basic object does not interfere with old ones", {
x <- S("x")
expect_true(as.character(x) == "x")
y <- S("y")
expect_true(as.character(y) == "y")
expect_true(as.character(x) == "x")
## We can use .Internal(inspect) to check the memory address
if (FALSE) {
.Internal(inspect(x))
.Internal(inspect(y))
}
})
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.